mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Remote/Helper/Http.hs
View file

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