From afa2d065bd6adf6f05c6d7bb2f43380c66b96460 Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 10:50:02 +0000
Subject: [PATCH] Hlint: Error: Monad law, right identity

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

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 5929fd8d3..9612a1352 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -501,7 +501,7 @@ numberpartsstartingwithdigit = do
   let digitorcomma = digit <|> char ','
   first <- digit
   rest <- many digitorcomma
-  frac <- try (do {char '.'; many digit >>= return}) <|> return ""
+  frac <- try (do {char '.'; many digit}) <|> return ""
   return (first:rest,frac)
                      
 numberpartsstartingwithpoint :: GenParser Char st (String,String)