From 3982eee03727a572a5f018a3e269497a2d672836 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 24 Dec 2014 09:14:59 +0200
Subject: [PATCH] Give a bit more information on upload progress

---
 Stackage/Upload.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Stackage/Upload.hs b/Stackage/Upload.hs
index e751ff93..8bc67eeb 100644
--- a/Stackage/Upload.hs
+++ b/Stackage/Upload.hs
@@ -67,7 +67,10 @@ uploadBundle UploadBundle {..} man = do
             }
     res <- httpLbs req3 man
     case lookup "x-stackage-ident" $ responseHeaders res of
-        Just snapid -> return $ SnapshotIdent $ decodeUtf8 snapid
+        Just snapid -> do
+            forM_ (lookup "location" $ responseHeaders res) $ \loc ->
+                putStrLn $ "Check upload progress at: " ++ decodeUtf8 loc
+            return $ SnapshotIdent $ decodeUtf8 snapid
         Nothing -> error $ "An error occurred: " ++ show res
   where
     params = mapMaybe (\(x, y) -> (x, ) <$> y)