apply journal updates in the order they were parsed, not the reverse (!)
Fixes the order of include files in stats command.
This commit is contained in:
parent
c2365c3541
commit
9a239789fa
@ -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 (.) id) $ sequence us
|
combineJournalUpdates us = liftM (foldr (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.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user