slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

parsing: don't let trailing whitespace in a timelog description mess up layout

Browse Source
This commit is contained in:
Simon Michael 2010-07-08 03:08:28 +00:00
parent 816083d82f
commit 3e9ad0ae13
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read/Timelog.hs
View File

@ -93,7 +93,7 @@ timelogentry = do
many1 spacenonewline many1 spacenonewline
datetime <- ledgerdatetime datetime <- ledgerdatetime
comment <- optionMaybe (many1 spacenonewline >> liftM2 (++) getParentAccount restofline) 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 [ tests_Timelog = TestList [
] ]