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

Force Haddock unpacking right after upload

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-20 14:52:49 +03:00
parent e32df84ac4
commit 5bed251284
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/Haddock.hs
View File

@ -28,6 +28,7 @@ getUploadHaddockR ident = do
runDB $ update sid [StackageHasHaddocks =. True] runDB $ update sid [StackageHasHaddocks =. True]
master <- getYesod master <- getYesod
getHaddockDir ident >>= liftIO . void . tryIO . removeTree getHaddockDir ident >>= liftIO . void . tryIO . removeTree
void $ liftIO $ forkIO $ haddockUnpacker master ident
setMessage "Haddocks uploaded" setMessage "Haddocks uploaded"
redirect $ StackageHomeR ident redirect $ StackageHomeR ident
_ -> defaultLayout $ do _ -> defaultLayout $ do