Commits

Bryan O'Sullivan committed 7c3b3ce

Make GHC 7.8 happier

  • Participants
  • Parent commits 7251c20

Comments (0)

Files changed (1)

Blaze/Text/Int.hs

     | toByteString b == "-0" = fromString (show i)
     | otherwise              = b
   where b = minus `mappend` nonNegative (-i)
+{-# NOINLINE integral #-}
 
 bounded :: (Bounded a, Integral a) => a -> Builder
 {-# SPECIALIZE bounded :: Int -> Builder #-}