PARSER: improve haddock comments

2014-10-09 17:00:03 +02:00 · 2014-10-09 17:00:03 +02:00 · d0e8c85a8d
commit d0e8c85a8d
parent 9c724ec479
1 changed files with 2 additions and 1 deletions
--- a/Parser/Core.hs
+++ b/Parser/Core.hs
@ -67,7 +67,8 @@ posInt = MkParser f
      | otherwise = Just (read ns, rest)
        where (ns, rest) = span isDigit xs

-- |Creates a Parser that accepts positive integers.
+-- |Creates a Parser that accepts positive doubles.
+-- Both 131.31 and 132 are valid.
 posDouble :: Parser Double
 posDouble = (read <$>)                   $
              (\x y z -> x ++ [y] ++ z) <$>