aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorAlexander Biehl <abiehl@novomind.com>2017-08-29 11:40:19 +0200
committerAlexander Biehl <abiehl@novomind.com>2017-08-29 11:40:19 +0200
commiteb88b014c33e5a3d36e7b44885940f70289c00bf (patch)
treebffeddccc2e89750aa66021440a3cf1d96523bfb /haddock-api/src/Haddock/Backends/Xhtml.hs
parent24ccb9b706e3555bf06f35e2f4007565d76fa1b8 (diff)
QuickNav: Make docbase configurable
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml.hs')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs
index 80469929..f85ee6b3 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -194,7 +194,12 @@ bodyHtml doctitle iface
script ! [src jsPreactFile, thetype "text/javascript"] << noHtml,
script ! [src jsFuseFile, thetype "text/javascript"] << noHtml,
- script ! [src jsIndexFile, thetype "text/javascript"] << noHtml
+ script ! [src jsIndexFile, thetype "text/javascript"] << noHtml,
+ script ! [thetype "text/javascript"]
+ -- NB: Within XHTML, the content of script tags needs to be
+ -- a <![CDATA[ section.
+ << primHtml
+ "//<![CDATA[\nquickNav.init();\n//]]>\n"
]
moduleInfo :: Interface -> Html