simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 02:37:12 +03:00
Code Issues Projects Releases Wiki Activity

web: fix loss of file path when reloading the journal

Browse Source
This commit is contained in:
Simon Michael 2010-05-23 22:24:30 +00:00
parent bf5ee88a30
commit a8d86fb5e5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger-lib/Hledger/Data/IO.hs
View File

@ -59,16 +59,17 @@ myJournal = myLedgerPath >>= readJournal
myTimelog :: IO Journal
myTimelog = myTimelogPath >>= readJournal
-- | Read a journal from this file, or give an error.
-- | Read a journal from this file, or throw an error.
readJournal :: FilePath -> IO Journal
readJournal f = do
s <- readFile f
journalFromString s
j <- journalFromString s
return j{filepath=f}
-- | Read a Journal from the given string, using the current time as
-- reference time, or throw an error.
journalFromString :: String -> IO Journal
journalFromString s = liftM (either error id) $ runErrorT $ parseJournal "(string)" s
journalFromString s = liftM (either error id) $ runErrorT $ parseJournal "(from string)" s
-- -- | Expand ~ in a file path (does not handle ~name).
-- tildeExpand :: FilePath -> IO FilePath