From 705dc006595db165e1cb244485cf47bcae02e2d0 Mon Sep 17 00:00:00 2001
From: alexbiehl <alex.biehl@gmail.com>
Date: Sun, 27 Aug 2017 18:50:16 +0200
Subject: Content search for haddock html doc

---
 haddock-api/src/Haddock/Backends/Xhtml.hs |  6 ++++++
 haddock-api/src/Haddock/Utils.hs          | 10 +++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

(limited to 'haddock-api/src')

diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs
index 78bd0262..e1bbee7b 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -108,6 +108,9 @@ copyHtmlBits odir libdir themes = do
     copyLibFile f = copyFile (joinPath [libhtmldir, f]) (joinPath [odir, f])
   mapM_ copyCssFile (cssFiles themes)
   copyLibFile jsFile
+  copyLibFile jsFuseFile
+  copyLibFile jsIndexFile
+  copyLibFile jsPreactFile
   return ()
 
 
@@ -118,6 +121,9 @@ headHtml docTitle themes mathjax_url =
     thetitle << docTitle,
     styleSheet themes,
     script ! [src jsFile, thetype "text/javascript"] << noHtml,
+    script ! [src jsPreactFile, thetype "text/javascript"] << noHtml,
+    script ! [src jsFuseFile, thetype "text/javascript"] << noHtml,
+    script ! [src jsIndexFile, thetype "text/javascript"] << noHtml,
     script ! [src mjUrl, thetype "text/javascript"] << noHtml,
     script ! [thetype "text/javascript"]
         -- NB: Within XHTML, the content of script tags needs to be
diff --git a/haddock-api/src/Haddock/Utils.hs b/haddock-api/src/Haddock/Utils.hs
index 200cd00a..53d69418 100644
--- a/haddock-api/src/Haddock/Utils.hs
+++ b/haddock-api/src/Haddock/Utils.hs
@@ -23,7 +23,7 @@ module Haddock.Utils (
   contentsHtmlFile, indexHtmlFile, indexJsonFile,
   moduleIndexFrameName, mainFrameName, synopsisFrameName,
   subIndexHtmlFile,
-  jsFile,
+  jsFile, jsFuseFile, jsIndexFile, jsPreactFile,
 
   -- * Anchor and URL utilities
   moduleNameUrl, moduleNameUrl', moduleUrl,
@@ -328,6 +328,14 @@ makeAnchorId (f:r) = escape isAlpha f ++ concatMap (escape isLegal) r
 jsFile :: String
 jsFile    = "haddock-util.js"
 
+jsIndexFile :: String
+jsIndexFile = "index.js"
+
+jsFuseFile :: String
+jsFuseFile = "fuse.js"
+
+jsPreactFile :: String
+jsPreactFile = "preact.js"
 
 -------------------------------------------------------------------------------
 -- * Misc.
-- 
cgit v1.2.3