From ed81727f31ef69427d5a274666e917cd6d09f24e Mon Sep 17 00:00:00 2001
From: Marco Zocca <marco.zocca@unfoldml.com>
Date: Fri, 6 Oct 2023 11:54:46 +0200
Subject: [PATCH 1/2] fix final printed output of stack haddock, closes #6274

---
 src/Stack/Build/Haddock.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Stack/Build/Haddock.hs b/src/Stack/Build/Haddock.hs
index a8f5a27165..6c76bb490c 100644
--- a/src/Stack/Build/Haddock.hs
+++ b/src/Stack/Build/Haddock.hs
@@ -219,7 +219,8 @@ generateHaddockIndex descr bco dumpPackages docRelFP destDir = do
           [ flow "Updating Haddock index for"
           , style Current (fromString $ T.unpack descr)
           , "in"
-          , pretty destIndexFile <> "."
+          , "\n"
+          , pretty destIndexFile
           ]
         liftIO (mapM_ copyPkgDocs interfaceOpts)
         haddockExeName <- view $ compilerPathsL.to (toFilePath . cpHaddock)
@@ -237,7 +238,8 @@ generateHaddockIndex descr bco dumpPackages docRelFP destDir = do
           [ flow "Haddock index for"
           , style Current (fromString $ T.unpack descr)
           , flow "already up to date at"
-          , pretty destIndexFile <> "."
+          , "\n"
+          , pretty destIndexFile
           ]
  where
   toInterfaceOpt ::

From f6ea88ff9c72f83d8c9be3bdffb8260f7d4d9e03 Mon Sep 17 00:00:00 2001
From: Marco Zocca <marco.zocca@unfoldml.com>
Date: Fri, 6 Oct 2023 11:56:04 +0200
Subject: [PATCH 2/2] upd changelog

---
 ChangeLog.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ChangeLog.md b/ChangeLog.md
index 235dadbd46..2b850416b9 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -23,6 +23,8 @@ Other enhancements:
 
 * Add flag `--no-init` to Stack's `new` command to skip the initialisation of
   the newly-created project for use with Stack.
+* The HTML file paths produced at the end of `stack haddock` are printed on
+  separate lines and without a trailing dot.
 
 Bug fixes: