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

fix JournalReader ctx warning

Browse Source
This commit is contained in:
Simon Michael 2014-12-27 15:23:17 -08:00
parent ec62644161
commit e794412a8f
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

@ -214,7 +214,7 @@ includedirective = do
r <- liftIO $ runErrorT u r <- liftIO $ runErrorT u
case r of case r of
Left err -> return $ throwError err Left err -> return $ throwError err
Right (ju, ctx) -> return $ ErrorT $ return $ Right ju Right (ju, _finalparsectx) -> return $ ErrorT $ return $ Right ju
journalAddFile :: (FilePath,String) -> Journal -> Journal journalAddFile :: (FilePath,String) -> Journal -> Journal
journalAddFile f j@Journal{files=fs} = j{files=fs++[f]} journalAddFile f j@Journal{files=fs} = j{files=fs++[f]}