aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorAlexander Biehl <alexbiehl@gmail.com>2017-10-30 10:15:49 +0100
committerGitHub <noreply@github.com>2017-10-30 10:15:49 +0100
commit0f181c4a70ef5e4753545cd9e0734a015bb815e1 (patch)
tree7b36c544f1977438dc0fc7a728f8397ecd9202f2 /haddock-api/src/Haddock/Backends/Xhtml
parentaca68f620beb07f9bdebdf52948c6ea670be4980 (diff)
Put Quickjump behind --quickjump flag (#697)
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Meta.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Meta.hs b/haddock-api/src/Haddock/Backends/Xhtml/Meta.hs
index 5cf03ec4..621bdd41 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Meta.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Meta.hs
@@ -15,14 +15,14 @@ quickjumpVersion = 1
-- | Writes a json encoded file containing additional
-- information about the generated documentation. This
-- is useful for external tools (e.g. hackage).
-writeHaddockMeta :: FilePath -> IO ()
-writeHaddockMeta odir = do
+writeHaddockMeta :: FilePath -> Bool -> IO ()
+writeHaddockMeta odir withQuickjump = do
let
meta_json :: Value
- meta_json = object [
- "haddock_version" .= String projectVersion
- , "quickjump_version" .= quickjumpVersion
- ]
+ meta_json = object (concat [
+ [ "haddock_version" .= String projectVersion ]
+ , [ "quickjump_version" .= quickjumpVersion | withQuickjump ]
+ ])
withFile (odir </> "meta.json") WriteMode $ \h ->
- hPutBuilder h (encodeToBuilder meta_json) \ No newline at end of file
+ hPutBuilder h (encodeToBuilder meta_json)