From f56838c36235febb224107fa62334ebfe9941aba Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 25 Mar 2024 16:20:16 -0400
Subject: [PATCH] Fix default hyperlinked sources pattern
Previously this didn't include the `%M` token which manifested as broken
links to the hyperlinked sources of reexports of declarations defined
in other packages.
Fixes haddock#1628.
(cherry picked from commit 1432bcc943d41736eca491ecec4eb9a6304dab36)
---
utils/haddock/haddock-api/src/Haddock/Options.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/utils/haddock/haddock-api/src/Haddock/Options.hs b/utils/haddock/haddock-api/src/Haddock/Options.hs
index cae032a8a9cb..f9562516e775 100644
--- a/utils/haddock/haddock-api/src/Haddock/Options.hs
+++ b/utils/haddock/haddock-api/src/Haddock/Options.hs
@@ -563,7 +563,7 @@ readIfaceArgs flags = [parseIfaceOption s | Flag_ReadInterface s <- flags]
(src, ',' : rest') ->
let src' = case src of
"" -> Nothing
- _ -> Just src
+ _ -> Just (src ++ "/%M.html")
in case break (== ',') rest' of
(visibility, ',' : file)
| visibility == "hidden" ->
--
GitLab