simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 12:24:43 +03:00
Code Issues Projects Releases Wiki Activity

don't break if HOME is undefined

Browse Source
This commit is contained in:
Simon Michael 2009-11-19 01:48:37 +00:00
parent 26848584ee
commit 7b1458c9a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/IO.hs
View File

@ -37,7 +37,7 @@ myLedgerPath :: IO String
myLedgerPath = myLedgerPath =
getEnv ledgerenvvar `catch` getEnv ledgerenvvar `catch`
(\_ -> do (\_ -> do
home <- getHomeDirectory home <- getHomeDirectory `catch` (\_ -> return "")
return $ home </> ledgerdefaultfilename) return $ home </> ledgerdefaultfilename)
-- | Get the user's default timelog file path. -- | Get the user's default timelog file path.