Commits

Bryan O'Sullivan committed a2d2446

Improve multiplication performance

  • Participants
  • Parent commits fbace38

Comments (0)

Files changed (1)

File Data/Attoparsec/Number.hs

 
 binop :: (Integer -> Integer -> a) -> (Double -> Double -> a)
       -> Number -> Number -> a
+binop _ d (D a) (D b) = d a b
 binop i _ (I a) (I b) = i a b
-binop _ d (D a) (D b) = d a b
 binop _ d (D a) (I b) = d a (fromIntegral b)
 binop _ d (I a) (D b) = d (fromIntegral a) b
 {-# INLINE binop #-}