slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

imp: interpret glob patterns in $LEDGER_FILE

Browse Source 
For example, LEDGER_FILE=2???.journal now works.
This commit is contained in:
Simon Michael 2024-02-22 07:32:37 -10:00
parent e6b3fa0f54
commit f6a50923c2
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Read.hs
View File

@ -140,7 +140,7 @@ import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.IO as T import qualified Data.Text.IO as T
import Data.Time (Day) import Data.Time (Day)
import Safe (headDef) import Safe (headDef, headMay)
import System.Directory (doesFileExist, getHomeDirectory) import System.Directory (doesFileExist, getHomeDirectory)
import System.Environment (getEnv) import System.Environment (getEnv)
import System.Exit (exitFailure) import System.Exit (exitFailure)
@ -184,8 +184,12 @@ defaultJournal = defaultJournalPath >>= runExceptT . readJournalFile definputopt
-- determine a home directory). -- determine a home directory).
defaultJournalPath :: IO String defaultJournalPath :: IO String
defaultJournalPath = do defaultJournalPath = do
s <- envJournalPath p <- envJournalPath
if null s then defpath else return s if null p
then defpath
else do
ps <- expandGlob "." p `C.catch` (\(_::C.IOException) -> return [])
maybe defpath return $ headMay ps
where where
envJournalPath = envJournalPath =
getEnv journalEnvVar getEnv journalEnvVar