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

Hlint: Error: Redundant return

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 12:17:25 +00:00
parent 3341ad197f
commit af3ad2abe1
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Ledger/Parse.hs
View File

@ -423,8 +423,7 @@ postingamount :: GenParser Char st MixedAmount
postingamount = postingamount =
try (do try (do
many1 spacenonewline many1 spacenonewline
a <- someamount <|> return missingamt someamount <|> return missingamt
return a
) <|> return missingamt ) <|> return missingamt
someamount :: GenParser Char st MixedAmount someamount :: GenParser Char st MixedAmount