@@ -67,7 +67,10 @@ uploadBundle UploadBundle {..} man = do
6767 }
6868 res <- httpLbs req3 man
6969 case lookup "x-stackage-ident" $ responseHeaders res of
70− Just snapid -> return $ SnapshotIdent $ decodeUtf8 snapid
70+ Just snapid -> do
71+ forM_ (lookup "location" $ responseHeaders res) $ \loc ->
72+ putStrLn $ "Check upload progress at: " ++ decodeUtf8 loc
73+ return $ SnapshotIdent $ decodeUtf8 snapid
7174 Nothing -> error $ "An error occurred: " ++ show res
7275 where
7376 params = mapMaybe (\(x, y) -> (x, ) <$> y)