From 3ab18cf06ae9392eab1349675dab8a177f1412da Mon Sep 17 00:00:00 2001 From: Mike Pilgrem Date: Wed, 13 Nov 2019 21:43:03 +0000 Subject: Fix #783 Don't show button if --quickjump not present --- haddock-api/src/Haddock.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'haddock-api/src/Haddock.hs') diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 7ed43ad2..664168f1 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -435,6 +435,7 @@ render logger dflags unit_state flags sinceQual qual ifaces packages extSrcMap = _ <- {-# SCC ppHtmlIndex #-} ppHtmlIndex odir title pkgStr themes opt_mathjax opt_contents_url sourceUrls' opt_wiki_urls + withQuickjump (concatMap piInstalledInterfaces allVisiblePackages) pretty return () @@ -446,6 +447,7 @@ render logger dflags unit_state flags sinceQual qual ifaces packages extSrcMap = _ <- {-# SCC ppHtmlContents #-} ppHtmlContents unit_state odir title pkgStr themes opt_mathjax opt_index_url sourceUrls' opt_wiki_urls + withQuickjump allVisiblePackages True prologue pretty sincePkg (makeContentsQual qual) return () @@ -778,4 +780,3 @@ getPrologue dflags flags = rightOrThrowE :: Either String b -> IO b rightOrThrowE (Left msg) = throwE msg rightOrThrowE (Right x) = pure x - -- cgit v1.2.3