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

;dev: haddock edits

Browse Source
This commit is contained in:
Simon Michael 2025-05-16 09:42:55 -10:00
parent d8627cb863
commit 151b36a6f2
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -345,13 +345,11 @@ readJournalFilesAndLatestDates iopts pfs = do
(js, lastdates) <- unzip <$> mapM (readJournalFileAndLatestDates iopts) pfs (js, lastdates) <- unzip <$> mapM (readJournalFileAndLatestDates iopts) pfs
return (maybe def sconcat $ nonEmpty js, catMaybes lastdates) return (maybe def sconcat $ nonEmpty js, catMaybes lastdates)
-- | An easy version of 'readJournal' which assumes default options, and fails -- | An easy version of 'readJournal' which assumes default options, and fails in the IO monad.
-- in the IO monad.
readJournal' :: Handle -> IO Journal readJournal' :: Handle -> IO Journal
readJournal' = orDieTrying . readJournal definputopts Nothing readJournal' = orDieTrying . readJournal definputopts Nothing
-- | An even easier version of 'readJournal' which additionally to 'readJournal'' -- | An even easier version of readJournal' which takes a 'Text' instead of a 'Handle'.
-- also takes a 'Text' instead of a 'Handle'.
readJournal'' :: Text -> IO Journal readJournal'' :: Text -> IO Journal
readJournal'' = readJournal' <=< inputToHandle readJournal'' = readJournal' <=< inputToHandle