From 0542e2f2f65f1cb9267b55ce3fcd71efc6c29dbe Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 9 Mar 2007 23:30:12 +0000
Subject: [PATCH] cleanup

---
 Parse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Parse.hs b/Parse.hs
index d2a9da9d4..2fe961357 100644
--- a/Parse.hs
+++ b/Parse.hs
@@ -1,6 +1,7 @@
 
 module Parse
 where
+import qualified Data.Map as Map
 import Text.ParserCombinators.Parsec
 import Text.ParserCombinators.Parsec.Language
 import qualified Text.ParserCombinators.Parsec.Token as P
@@ -144,7 +145,7 @@ ledger = do
   --
   entries <- (many ledgerentry) <?> "entry"
   eof
-  return (Ledger modifier_entries periodic_entries entries)
+  return $ Ledger modifier_entries periodic_entries entries
 
 ledgernondatalines :: Parser [String]
 ledgernondatalines = many (ledgerdirective <|> ledgercomment <|> do {whiteSpace1; return []})