git.iko.soy/docker-hs
on master help sign in
Adds default http handler
7001ae9Deni Bertovic
src/Docker/Internal.hs+5−2
compare with master
unifiedsplit
@@ -30,8 +30,11 @@ mkHttpRequest verb e opts = request
30 -- TODO: manager = newManager defaultManagerSettings -- We likely need
30 -- TODO: manager = newManager defaultManagerSettings -- We likely need
31 -- this for TLS.
31 -- this for TLS.
32
32
33−defaultHandler :: Request -> IO Response
33+defaultHttpHandler :: Request -> IO Response
34−defaultHandler = undefined
34+defaultHttpHandler request = do
35+ manager <- newManager defaultManagerSettings
36+ response <- httpLbs request manager
37+ return response
35
38
36encodeURL :: [Text] -> Text
39encodeURL :: [Text] -> Text
37encodeURL ps = decodeUtf8 $ toByteString $ encodePathSegments ps
40encodeURL ps = decodeUtf8 $ toByteString $ encodePathSegments ps