@@ -427,6 +427,7 @@ number = floaty $ \real frac fracDenom ->
427 if frac == 0 && fracDenom == 0
427 if frac == 0 && fracDenom == 0
428 then I real
428 then I real
429 else D (asDouble real frac fracDenom)
429 else D (asDouble real frac fracDenom)
430+{-# INLINE number #-}
431floaty :: Fractional a => (Integer -> Integer -> Integer -> a) -> Parser a
432floaty :: Fractional a => (Integer -> Integer -> Integer -> a) -> Parser a
432{-# INLINE floaty #-}
433{-# INLINE floaty #-}