diff options
| author | Mike Pilgrem <mpilgrem@users.noreply.github.com> | 2019-11-13 21:43:03 +0000 |
|---|---|---|
| committer | Mike Pilgrem <mpilgrem@users.noreply.github.com> | 2022-06-12 21:57:19 +0100 |
| commit | 3ab18cf06ae9392eab1349675dab8a177f1412da (patch) | |
| tree | a17da33db62ce591a05c2132c094913b371a41e0 /haddock-api/src/Haddock.hs | |
| parent | c5a83df91b97f85d995599c5ae7beacabe2ff040 (diff) | |
Fix #783 Don't show button if --quickjump not present
Diffstat (limited to 'haddock-api/src/Haddock.hs')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 - |