From 4b4a4bacf727bf621e785c2842300fdc8c3ee6ba Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 19 Feb 2016 22:57:43 -0800
Subject: [PATCH] lib: timedot parse order fix

---
 hledger-lib/Hledger/Read/TimedotReader.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-lib/Hledger/Read/TimedotReader.hs b/hledger-lib/Hledger/Read/TimedotReader.hs
index f8a3edf85..8655386d3 100644
--- 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.
 -- @