aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock.hs
diff options
context:
space:
mode:
authorYuchen Pei <hi@ypei.me>2022-08-16 12:18:12 +1000
committerYuchen Pei <hi@ypei.me>2022-08-16 14:06:43 +1000
commitd6d4c8ad32ef751ced0adb36ea67e1dd1278c0b6 (patch)
tree16f2cd0173ca561a72267829a6eebca038354f52 /haddock-api/src/Haddock.hs
parent30517b24ca6b4019c3301f06837325615faac8af (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.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs
index 038d31d9..bdcdf83c 100644
--- a/haddock-api/src/Haddock.hs
+++ b/haddock-api/src/Haddock.hs
@@ -466,8 +466,9 @@ render logger dflags unit_state flags sinceQual qual ifaces installedIfaces extS
return ()
when (Flag_Org `elem` flags) $ do
withTiming logger dflags' "ppOrg" (const ()) $ do
- let org = {-# SCC ppOrg #-} ppOrg title (_doc <$> prologue) (fromJust pkgStr) visibleIfaces
- writeUtf8File (fromMaybe "haddock" (cleanPkgStr <$> pkgStr) <.> "org") org
+ _ <- {-# SCC ppOrg #-}
+ ppOrg title pkgStr odir (_doc <$> prologue) visibleIfaces
+ return ()
when (Flag_HyperlinkedSource `elem` flags && not (null ifaces)) $ do
withTiming logger dflags' "ppHyperlinkedSource" (const ()) $ do