lib: timedot parse order fix

2016-02-19 22:57:43 -08:00 · 2016-02-19 22:57:43 -08:00 · 4b4a4bacf7
commit 4b4a4bacf7
parent 0adcdf21f8
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Read/TimedotReader.hs
+++ b/hledger-lib/Hledger/Read/TimedotReader.hs
@ -83,7 +83,7 @@ timedotfilep = do items <- many timedotfileitemp
         ] <?> "timedot day entry, or default year or comment line or blank line"

 addTransactions :: [Transaction] -> Journal -> Journal
-addTransactions ts j = foldr ($) j (map addTransaction ts) -- XXX
+addTransactions ts j = foldl' (flip ($)) j (map addTransaction ts)

 -- | Parse timedot day entries to zero or more time transactions for that day.
 -- @