slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hlint: Error: Monad law, right identity

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 10:50:02 +00:00
parent af3ad2abe1
commit afa2d065bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Parse.hs
View File

@ -501,7 +501,7 @@ numberpartsstartingwithdigit = do
let digitorcomma = digit <|> char ',' let digitorcomma = digit <|> char ','
first <- digit first <- digit
rest <- many digitorcomma rest <- many digitorcomma
frac <- try (do {char '.'; many digit >>= return}) <|> return "" frac <- try (do {char '.'; many digit}) <|> return ""
return (first:rest,frac) return (first:rest,frac)
numberpartsstartingwithpoint :: GenParser Char st (String,String) numberpartsstartingwithpoint :: GenParser Char st (String,String)