don't break if HOME is undefined

2024-12-26 20:02:27 +03:00 · 2009-11-19 01:48:37 +00:00 · 2009-11-19 01:48:37 +00:00 · 7b1458c9a5
commit 7b1458c9a5
parent 26848584ee
1 changed files with 1 additions and 1 deletions
--- a/Ledger/IO.hs
+++ b/Ledger/IO.hs
@ -37,7 +37,7 @@ myLedgerPath :: IO String
 myLedgerPath = 
    getEnv ledgerenvvar `catch` 
               (\_ -> do
-                  home <- getHomeDirectory
+                  home <- getHomeDirectory `catch` (\_ -> return "")
                  return $ home </> ledgerdefaultfilename)
  
 -- | Get the user's default timelog file path.