mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-20 10:47:29 +03:00
Hlint: Error: Monad law, right identity
This commit is contained in:
parent
af3ad2abe1
commit
afa2d065bd
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user