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

combine journal updates with foldl' instead of foldr

Browse Source 
on general principles, even though it makes no measurable difference
This commit is contained in:
Simon Michael 2012-05-30 10:19:08 +00:00
parent 9a239789fa
commit 33b7c91e20
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/JournalReader.hs
View File

@ -79,7 +79,7 @@ parse _ = -- trace ("running "++format++" reader") .
-- | Flatten a list of JournalUpdate's into a single equivalent one. -- | Flatten a list of JournalUpdate's into a single equivalent one.
combineJournalUpdates :: [JournalUpdate] -> JournalUpdate combineJournalUpdates :: [JournalUpdate] -> JournalUpdate
combineJournalUpdates us = liftM (foldr (flip (.)) id) $ sequence us combineJournalUpdates us = liftM (foldl' (flip (.)) id) $ sequence us
-- | Given a JournalUpdate-generating parsec parser, file path and data string, -- | Given a JournalUpdate-generating parsec parser, file path and data string,
-- parse and post-process a Journal so that it's ready to use, or give an error. -- parse and post-process a Journal so that it's ready to use, or give an error.