diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs
index b60ee44..9028d67 100644
--- 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