Fix a stupid damn typo.
commit9fea49096b75c28962c48bed1f833440277b0e9b
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 13 Apr 2011, 10:34 (16 years ago)
parent5b3a81a
Data/Attoparsec/Number.hs+1−1
@@ -64,7 +64,7 @@ instance Num Number where
6464 (-) = binop (((I$!).) . (-)) (((D$!).) . (-))
6565 {-# INLINE (-) #-}
6666
67− (*) = binop (((I$!).) . (+)) (((D$!).) . (+))
67+ (*) = binop (((I$!).) . (*)) (((D$!).) . (*))
6868 {-# INLINE (*) #-}
6969
7070 abs (I a) = I $! abs a