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

;imp:cli:errors: make file-not-found error more format agnostic

Browse Source
This commit is contained in:
Simon Michael 2024-02-26 10:25:22 -10:00
parent a4c2776a18
commit c7dd1fcc2f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -335,16 +335,16 @@ readJournalFiles' = orDieTrying . readJournalFiles definputopts
orDieTrying :: MonadIO m => ExceptT String m a -> m a
orDieTrying a = either (liftIO . fail) return =<< runExceptT a
-- | If the specified journal file does not exist (and is not "-"),
-- give a helpful error and quit.
-- | If the specified journal file does not exist (and is not "-"), give a helpful error and quit.
-- (Using "journal file" generically here; it could be in any of hledger's supported formats.)
requireJournalFileExists :: FilePath -> IO ()
requireJournalFileExists "-" = return ()
requireJournalFileExists f = do
exists <- doesFileExist f
unless exists $ do -- XXX might not be a journal file
hPutStr stderr $ "The hledger journal file \"" <> f <> "\" was not found.\n"
unless exists $ do
hPutStr stderr $ "The hledger data file \"" <> f <> "\" was not found.\n"
hPutStr stderr "Please create it first, eg with \"hledger add\" or a text editor.\n"
hPutStr stderr "Or, specify an existing journal file with -f or LEDGER_FILE.\n"
hPutStr stderr "Or, specify an existing data file with -f or $LEDGER_FILE.\n"
exitFailure
-- | Ensure there is a journal file at the given path, creating an empty one if needed.