Force Haddock unpacking right after upload

2026-01-12 04:08:29 +01:00 · 2014-10-20 14:52:49 +03:00 · 2014-10-20 14:52:49 +03:00 · 5bed251284
commit 5bed251284
parent e32df84ac4
1 changed files with 1 additions and 0 deletions
--- a/Handler/Haddock.hs
+++ b/Handler/Haddock.hs
@ -28,6 +28,7 @@ getUploadHaddockR ident = do
            runDB $ update sid [StackageHasHaddocks =. True]
            master <- getYesod
            getHaddockDir ident >>= liftIO . void . tryIO . removeTree
+            void $ liftIO $ forkIO $ haddockUnpacker master ident
            setMessage "Haddocks uploaded"
            redirect $ StackageHomeR ident
        _ -> defaultLayout $ do