From 9ca02e21e4a104149df7918503f31e96fb357d04 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 3 Oct 2008 02:28:58 +0000
Subject: [PATCH] Parse doc cleanup

---
 Ledger/Parse.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 57767e57f..330619f53 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -1,6 +1,7 @@
 {-|
-A parser for standard ledger files.  Here's the ledger grammar from
-the ledger 2.5 manual:
+
+A parser for standard ledger files.  Here's the grammar from the
+ledger 2.5 manual:
 
 @
 The ledger file format is quite simple, but also very flexible. It supports
@@ -322,12 +323,6 @@ i 2007/03/10 12:26:00 hledger
 o 2007/03/10 17:26:02
 @
 -}
-
-ledgerfromtimelog :: Parser RawLedger
-ledgerfromtimelog = do 
-  tl <- timelog
-  return $ ledgerFromTimeLog tl
-
 timelog :: Parser TimeLog
 timelog = do
   entries <- many timelogentry
@@ -345,3 +340,8 @@ timelogentry = do
   comment <- restofline
   return $ TimeLogEntry code datetime comment
 
+ledgerfromtimelog :: Parser RawLedger
+ledgerfromtimelog = do 
+  tl <- timelog
+  return $ ledgerFromTimeLog tl
+