From 5bed2512846093033710cb399a562fe502833d97 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 20 Oct 2014 14:52:49 +0300
Subject: [PATCH] Force Haddock unpacking right after upload

---
 Handler/Haddock.hs | 1 +
 1 file changed, 1 insertion(+)

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