diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index ba2aad75c..5929fd8d3 100644
--- 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