lib: defaultJournalSafely: don't strip newline

This commit is contained in:
Simon Michael 2025-04-25 15:42:47 -10:00
parent 144489a418
commit bca4b39c58

View File

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