From ee8ac17909563fcda0fa8669c2b6b2de50219f3e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 10 Mar 2007 23:18:46 +0000
Subject: [PATCH] allow tilde in LEDGER env var

---
 Options.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Options.hs b/Options.hs
index 675e88214..e2f51f0fa 100644
--- a/Options.hs
+++ b/Options.hs
@@ -36,6 +36,7 @@ getLedgerFilePath :: [Flag] -> IO String
 getLedgerFilePath opts = do
   defaultpath <- tildeExpand "~/ledger.dat"
   envordefault <- getEnv "LEDGER" `catch` \_ -> return defaultpath
+  path <- tildeExpand envordefault
   return $ last $ [envordefault] ++ (filter (/= "") (map getFile opts))
 
 -- ledger pattern args are a list of account patterns optionally followed