From af3ad2abe1c5b4cfac047bab0f14f8f4dcb08664 Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 12:17:25 +0000
Subject: [PATCH] Hlint: Error: Redundant return

---
 Ledger/Parse.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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