eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix issue #821

Browse source
This commit is contained in:
Joshua McCartney 2017-09-28 19:15:53 -04:00
parent 4a6edd7864
commit 3fedbd097a
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-client/src/Servant/Client/Internal/HttpClient.hs
View file

@ -136,12 +136,16 @@ requestToClientRequest burl r = Client.defaultRequest
let orig = toList $ requestHeaders r let orig = toList $ requestHeaders r
in maybe orig (: orig) contentTypeHdr in maybe orig (: orig) contentTypeHdr
, Client.requestBody = body , Client.requestBody = body
, Client.secure = isSecure
} }
where where
(body, contentTypeHdr) = case requestBody r of (body, contentTypeHdr) = case requestBody r of
Nothing -> (Client.RequestBodyLBS "", Nothing) Nothing -> (Client.RequestBodyLBS "", Nothing)
Just (RequestBodyLBS body', typ) Just (RequestBodyLBS body', typ)
-> (Client.RequestBodyLBS body', Just (hContentType, renderHeader typ)) -> (Client.RequestBodyLBS body', Just (hContentType, renderHeader typ))
isSecure = case baseUrlScheme burl of
Http -> False
Https -> True
catchConnectionError :: IO a -> IO (Either ServantError a) catchConnectionError :: IO a -> IO (Either ServantError a)
catchConnectionError action = catchConnectionError action =