Commits

FlorianHartwig committed 6f43547

Remove commented-out code

  • Participants
  • Parent commits fe1fecb

Comments (0)

Files changed (1)

File src/Data/AttoBencode/Parser.hs

 
 stringParser :: Parser BValue
 stringParser = liftA BString bsParser
-{-
-intParser :: Parser BValue
-intParser =
- do char 'i'
-    sign <- option '+' (char '-')
-    n <- decimal --TODO: signed instead?
-    char 'e'
-    return $ BInt $ if sign == '-' then -n else n
--}
+
 intParser :: Parser BValue
 intParser = BInt <$> (char 'i' *> signed decimal <* char 'e')