Hlint: Error: Redundant return

2009-09-22 12:17:25 +00:00 · 2009-09-22 12:17:25 +00:00 · af3ad2abe1
commit af3ad2abe1
parent 3341ad197f
1 changed files with 1 additions and 2 deletions
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@ -423,8 +423,7 @@ postingamount :: GenParser Char st MixedAmount
 postingamount =
  try (do
        many1 spacenonewline
-        a <- someamount <|> return missingamt
-        return a
+        someamount <|> return missingamt
      ) <|> return missingamt

 someamount :: GenParser Char st MixedAmount