slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 getLedgerFilePath opts = do
defaultpath <- tildeExpand "~/ledger.dat" defaultpath <- tildeExpand "~/ledger.dat"
envordefault <- getEnv "LEDGER" `catch` \_ -> return defaultpath envordefault <- getEnv "LEDGER" `catch` \_ -> return defaultpath
path <- tildeExpand envordefault
return $ last $ [envordefault] ++ (filter (/= "") (map getFile opts)) return $ last $ [envordefault] ++ (filter (/= "") (map getFile opts))
-- ledger pattern args are a list of account patterns optionally followed -- ledger pattern args are a list of account patterns optionally followed