diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-08-16 12:18:12 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-08-16 13:55:46 +1000 |
| commit | faf6936079ba15570fe4e6835d9380d79986d011 (patch) | |
| tree | dc431f6410c147d59103566f79511d88adb92180 /haddock-api/src/Haddock.hs | |
| parent | e5bfddc32ab28675c20014e4f7c3878258317752 (diff) | |
Moving file writing to inside org backend
Also handling odir now
Diffstat (limited to 'haddock-api/src/Haddock.hs')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs index d011078a..581793d0 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -472,9 +472,10 @@ render log' dflags unit_state flags sinceQual qual ifaces installedIfaces extSrc libDir return () when (Flag_Org `elem` flags) $ do - withTiming logger "ppOrg" (const ()) $ do - let org = {-# SCC ppOrg #-} ppOrg title (_doc <$> prologue) (fromJust pkgStr) visibleIfaces - writeUtf8File (fromMaybe "haddock" (cleanPkgStr <$> pkgStr) <.> "org") org + withTiming logger dflags' "ppOrg" (const ()) $ do + _ <- {-# SCC ppOrg #-} + ppOrg title pkgStr odir (_doc <$> prologue) visibleIfaces + return () when (Flag_HyperlinkedSource `elem` flags && not (null ifaces)) $ do withTiming logger "ppHyperlinkedSource" (const ()) $ do |