From 151b36a6f251524876bf1b5db735006484c9be8d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 16 May 2025 09:42:55 -1000
Subject: [PATCH] ;dev: haddock edits

---
 hledger-lib/Hledger/Read.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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