diff --git a/Data/Unpacking.hs b/Data/Unpacking.hs index cc94a2f..c856e27 100644 --- a/Data/Unpacking.hs +++ b/Data/Unpacking.hs @@ -130,15 +130,6 @@ unpacker dirs runDB store say urlRender stackageEnt@(Entity _ Stackage {..}) = d createTree $ dirHoogleIdent dirs stackageIdent tmp <- getTemporaryDirectory - withSystemTempDirectory "hoogle-database-gen" $ \hoogletemp' -> do - let hoogletemp = fpFromString hoogletemp' - logFp = fpToString (dirHoogleFp dirs stackageIdent ["error-log"]) - withBinaryFile logFp WriteMode $ \errorLog -> do - say "Copying Hoogle text files to temp directory" - runResourceT $ copyHoogleTextFiles errorLog destdir hoogletemp - say "Creating Hoogle database" - createHoogleDb say dirs stackageEnt errorLog hoogletemp urlRender - -- Determine which packages have documentation and update the -- database appropriately say "Updating database for available documentation" @@ -157,6 +148,15 @@ unpacker dirs runDB store say urlRender stackageEnt@(Entity _ Stackage {..}) = d [PackageHasHaddocks =. True] ) + withSystemTempDirectory "hoogle-database-gen" $ \hoogletemp' -> do + let hoogletemp = fpFromString hoogletemp' + logFp = fpToString (dirHoogleFp dirs stackageIdent ["error-log"]) + withBinaryFile logFp WriteMode $ \errorLog -> do + say "Copying Hoogle text files to temp directory" + runResourceT $ copyHoogleTextFiles errorLog destdir hoogletemp + say "Creating Hoogle database" + createHoogleDb say dirs stackageEnt errorLog hoogletemp urlRender + copyHoogleTextFiles :: Handle -- ^ error log handle -> FilePath -- ^ raw unpacked Haddock files -> FilePath -- ^ temporary work directory