haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 12:18:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update database before doing Hoogle

Browse Source
This commit is contained in:
Michael Snoyman 2015-01-04 18:20:18 +02:00
parent ad28109f46
commit 4ef73a66c4
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Data/Unpacking.hs
View File

@ -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