haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-27 21:47:56 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Give a bit more information on upload progress

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-24 09:14:59 +02:00
parent ff41a4f8d5
commit 3982eee037
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Stackage/Upload.hs
View File

@ -67,7 +67,10 @@ uploadBundle UploadBundle {..} man = do
} }
res <- httpLbs req3 man res <- httpLbs req3 man
case lookup "x-stackage-ident" $ responseHeaders res of 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 Nothing -> error $ "An error occurred: " ++ show res
where where
params = mapMaybe (\(x, y) -> (x, ) <$> y) params = mapMaybe (\(x, y) -> (x, ) <$> y)