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

Avoid unnecessarily looking up StackageId in haddock unpacker

Browse Source
This commit is contained in:
Michael Sloan 2014-12-27 20:40:05 -08:00
parent f635977b02
commit eeb0aae9d9
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/Haddock.hs
View File

@ -314,8 +314,7 @@ createHaddockUnpacker root store runDB' urlRenderRef = do
-- Determine which packages have documentation and update the -- Determine which packages have documentation and update the
-- database appropriately -- database appropriately
runResourceT $ runDB' $ do runResourceT $ runDB' $ do
ment <- getBy $ UniqueStackage ident let sid = entityKey stackageEnt
forM_ ment $ \(Entity sid _) -> do
updateWhere updateWhere
[PackageStackage ==. sid] [PackageStackage ==. sid]
[PackageHasHaddocks =. False] [PackageHasHaddocks =. False]