diff options
| author | mergify[bot] <37929162+mergify[bot]@users.noreply.github.com> | 2022-06-13 11:49:37 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-13 11:49:37 +0000 |
| commit | 118dd4ed0c901f56070052405f533d9deff5bb22 (patch) | |
| tree | a17da33db62ce591a05c2132c094913b371a41e0 /haddock-api/src/Haddock.hs | |
| parent | c5a83df91b97f85d995599c5ae7beacabe2ff040 (diff) | |
| parent | 3ab18cf06ae9392eab1349675dab8a177f1412da (diff) | |
Merge pull request #1108 from mpilgrem/fix783
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 - |