From 3e9ad0ae13240747be9054de3488bdb92607a254 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 8 Jul 2010 03:08:28 +0000 Subject: [PATCH] parsing: don't let trailing whitespace in a timelog description mess up layout --- hledger-lib/Hledger/Read/Timelog.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/Timelog.hs b/hledger-lib/Hledger/Read/Timelog.hs index 50f2b24c0..22634bb1e 100644 --- a/hledger-lib/Hledger/Read/Timelog.hs +++ b/hledger-lib/Hledger/Read/Timelog.hs @@ -93,7 +93,7 @@ timelogentry = do many1 spacenonewline datetime <- ledgerdatetime comment <- optionMaybe (many1 spacenonewline >> liftM2 (++) getParentAccount restofline) - return $ TimeLogEntry (read [code]) datetime (fromMaybe "" comment) + return $ TimeLogEntry (read [code]) datetime (maybe "" rstrip comment) tests_Timelog = TestList [ ]