hasufell
/
cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PARSER: improve haddock comments

This commit is contained in:
hasufell 2014-10-09 17:00:03 +02:00
parent 9c724ec479
commit d0e8c85a8d
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Parser/Core.hs
View File

@ -67,7 +67,8 @@ posInt = MkParser f
| otherwise = Just (read ns, rest) | otherwise = Just (read ns, rest)
where (ns, rest) = span isDigit xs 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 :: Parser Double
posDouble = (read <$>) $ posDouble = (read <$>) $
(\x y z -> x ++ [y] ++ z) <$> (\x y z -> x ++ [y] ++ z) <$>