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

less obscure error when the journal file path contains a tilde

Browse Source
This commit is contained in:
Simon Michael 2012-01-03 12:12:37 +00:00
parent 48460b0130
commit 13e0757670
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger/Hledger/Cli/Options.hs
View File

@ -426,10 +426,10 @@ defaultBalanceFormatString = [
journalFilePathFromOpts :: CliOpts -> IO String journalFilePathFromOpts :: CliOpts -> IO String
journalFilePathFromOpts opts = do journalFilePathFromOpts opts = do
f <- myJournalPath f <- myJournalPath
return $ errorIfContainsTilde $ fromMaybe f $ file_ opts let f' = fromMaybe f $ file_ opts
if '~' `elem` f'
errorIfContainsTilde s |'~' `elem` s = error' "unsupported literal ~ found in environment variable, please adjust" then error' $ printf "~ in the journal file path is not supported, please adjust (%s)" f'
| otherwise = s else return f'
aliasesFromOpts :: CliOpts -> [(AccountName,AccountName)] aliasesFromOpts :: CliOpts -> [(AccountName,AccountName)]
aliasesFromOpts = map parseAlias . alias_ aliasesFromOpts = map parseAlias . alias_