From 7b1458c9a55b60ba0b7f1ac9713938aed2809385 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 19 Nov 2009 01:48:37 +0000
Subject: [PATCH] don't break if HOME is undefined

---
 Ledger/IO.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/IO.hs b/Ledger/IO.hs
index fe82a7a9a..e27f4419a 100644
--- 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.