mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages1 Wiki Activity Actions

check for 200 response

Browse source
This commit is contained in:
Joey Hess 2014-08-08 17:17:36 -04:00
parent 1f8c170c95
commit 1dd3232e8e
1 changed files with 5 additions and 3 deletions

8
Remote/Helper/Http.hs
View file

@ -11,7 +11,8 @@ import Common.Annex
import Types.StoreRetrieve
import Utility.Metered
import Remote.Helper.Special
import Network.HTTP.Client (RequestBody(..), Response, responseBody, BodyReader)
import Network.HTTP.Client (RequestBody(..), Response, responseStatus, responseBody, BodyReader)
import Network.HTTP.Types
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString as S
@ -38,8 +39,9 @@ httpStorer a = fileStorer $ \k f m -> do
-- Reads the http body and stores it to the specified file, updating the
-- meter as it goes.
httpBodyRetriever :: FilePath -> MeterUpdate -> Response BodyReader -> IO ()
httpBodyRetriever dest meterupdate resp =
bracket (openBinaryFile dest WriteMode) hClose (go zeroBytesProcessed)
httpBodyRetriever dest meterupdate resp
| responseStatus resp /= ok200 = error $ show $ responseStatus resp
| otherwise = bracket (openBinaryFile dest WriteMode) hClose (go zeroBytesProcessed)
where
reader = responseBody resp
go sofar h = do