From eb88b014c33e5a3d36e7b44885940f70289c00bf Mon Sep 17 00:00:00 2001
From: Alexander Biehl <abiehl@novomind.com>
Date: Tue, 29 Aug 2017 11:40:19 +0200
Subject: QuickNav: Make docbase configurable

---
 haddock-api/src/Haddock/Backends/Xhtml.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'haddock-api/src/Haddock')

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
-- 
cgit v1.2.3