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

lib: defaultJournalSafely: don't strip newline

Browse Source
This commit is contained in:
Simon Michael 2025-04-25 15:42:47 -10:00
parent 144489a418
commit bca4b39c58
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -200,8 +200,8 @@ defaultJournalSafelyWith iopts = (do
f <- defaultJournalPath f <- defaultJournalPath
runExceptT $ readJournalFile iopts f runExceptT $ readJournalFile iopts f
) `C.catches` [ -- XXX ) `C.catches` [ -- XXX
C.Handler (\(e :: C.ErrorCall) -> return $ Left $ rstrip $ show e) C.Handler (\(e :: C.ErrorCall) -> return $ Left $ show e)
,C.Handler (\(e :: C.IOException) -> return $ Left $ rstrip $ show e) ,C.Handler (\(e :: C.IOException) -> return $ Left $ show e)
] ]
-- | Get the default journal file path specified by the environment. -- | Get the default journal file path specified by the environment.
-- Like ledger, we look first for the LEDGER_FILE environment -- Like ledger, we look first for the LEDGER_FILE environment