From faf6936079ba15570fe4e6835d9380d79986d011 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Tue, 16 Aug 2022 12:18:12 +1000
Subject: Moving file writing to inside org backend
Also handling odir now
---
haddock-api/src/Haddock.hs | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
(limited to 'haddock-api/src/Haddock.hs')
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
--
cgit v1.2.3