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

allow tilde in LEDGER env var

Browse Source
This commit is contained in:
Simon Michael 2007-03-10 23:18:46 +00:00
parent 7d2a868640
commit ee8ac17909
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Options.hs
View File

@ -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