Fix bug in implementation of signed
commitdfdf9bbc64439fcbe2df6321b4dbc8d72b318f57
authorArvin Moezzi <moezzia@gmail.com>
dateFri 26 Mar 2010, 08:59 (17 years ago)
parente7b6a42
Data/Attoparsec/Char8.hs+1−1
@@ -322,6 +322,6 @@ decimal = B8.foldl' step 0 `fmap` I.takeWhile1 isDig
322322-- character.
323323signed :: Num a => Parser a -> Parser a
324324{-# SPECIALISE signed :: Parser Int -> Parser Int #-}
325−signed p = (negate <$> char8 '-' *> p)
325+signed p = (negate <$> (char8 '-' *> p))
326326 <|> (char8 '+' *> p)
327327 <|> p