diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-07-21 13:23:51 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-07-23 00:27:49 +1000 |
| commit | 7c1d533fc596acd5a6a4f197f9f3f3313dd82def (patch) | |
| tree | 535fd36130cf2a04bb8e6ac913d9a43a7a2d9134 /haddock-api/src/Haddock.hs | |
| parent | 307a8d51b708bda1b7fd11000fdd20ad4402de8e (diff) | |
fixing org backend for ghc-head (9.5)ghc-gitlab-ghc-9.4.1rc1
Diffstat (limited to 'haddock-api/src/Haddock.hs')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index 40cf8414..d011078a 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -472,7 +472,7 @@ render log' dflags unit_state flags sinceQual qual ifaces installedIfaces extSrc libDir return () when (Flag_Org `elem` flags) $ do - withTiming logger dflags' "ppOrg" (const ()) $ do + withTiming logger "ppOrg" (const ()) $ do let org = {-# SCC ppOrg #-} ppOrg title (_doc <$> prologue) (fromJust pkgStr) visibleIfaces writeUtf8File (fromMaybe "haddock" (cleanPkgStr <$> pkgStr) <.> "org") org |