Moving file writing to inside org backend

Also handling odir now

1 files changed, 3 insertions, 2 deletions

diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs
index 65d329e2..fff8b923 100644
--- a/haddock-api/src/Haddock.hs
+++ b/haddock-api/src/Haddock.hs
@@ -506,8 +506,9 @@ render logger dflags unit_state flags sinceQual qual ifaces packages extSrcMap =
       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