git.iko.soy/typeable/req
on master help sign in
Start working on response interpretation and inspecting
d3afecemrkkrp
Network/HTTP/Req.hs+66−5
compare with master
unifiedsplit
@@ -168,7 +168,15 @@ module Network.HTTP.Req
168 , responseTimeout
168 , responseTimeout
169 , httpVersion
169 , httpVersion
170 -- * Response
170 -- * Response
171+ -- ** Response interpretations
172+ , IgnoredResponseBody
171− -- $response
173+ -- ** Inspecting a response
174+ , responseBody
175+ , responseStatusCode
176+ , responseStatusMessage
177+ , responseHeader
178+ , responseCookieJar
179+ -- ** Defining your own interpretation
172 , HttpResponse (..)
180 , HttpResponse (..)
173 -- * Other
181 -- * Other
174 , CanHaveBody (..)
182 , CanHaveBody (..)
@@ -983,15 +991,68 @@ httpVersion major minor = withRequest $ \x ->
983 Y.HttpVersion (fromIntegral major) (fromIntegral minor) }
991 Y.HttpVersion (fromIntegral major) (fromIntegral minor) }
984
992
985----------------------------------------------------------------------------
993----------------------------------------------------------------------------
986−-- Response
994+-- Response interpretations
987
995
996+data IgnoredResponseBody = IgnoredResponseBody (L.Response ())
997+
998+----------------------------------------------------------------------------
988−-- $response
999+-- Inspecting a response
989−--
1000+
990−-- Something.
1001+-- | Get response body.
1002+
1003+responseBody
1004+ :: HttpResponse response
1005+ => response
1006+ -> HttpResponseBody response
1007+responseBody = L.responseBody . toVanillaResponse
1008+
1009+-- | Get response status code.
1010+
1011+responseStatusCode
1012+ :: HttpResponse response
1013+ => response
1014+ -> Word
1015+responseStatusCode =
1016+ fromIntegral . Y.statusCode . L.responseStatus . toVanillaResponse
1017+
1018+-- | Get response status message.
1019+
1020+responseStatusMessage
1021+ :: HttpResponse response
1022+ => response
1023+ -> ByteString
1024+responseStatusMessage =
1025+ Y.statusMessage . L.responseStatus . toVanillaResponse
1026+
1027+-- | Look a particular header from a response.
1028+
1029+responseHeader
1030+ :: HttpResponse response
1031+ => response -- ^ Response interpretation
1032+ -> ByteString -- ^ Header to lookup
1033+ -> Maybe ByteString -- ^ Header value if found
1034+responseHeader r h =
1035+ (lookup (CI.mk h) . L.responseHeaders . toVanillaResponse) r
1036+
1037+-- | Get response 'L.CookieJar'.
1038+
1039+responseCookieJar
1040+ :: HttpResponse response
1041+ => response
1042+ -> L.CookieJar
1043+responseCookieJar = L.responseCookieJar . toVanillaResponse
1044+
1045+----------------------------------------------------------------------------
1046+-- Response — defining your own interpretation
991
1047
992-- | Here we need to provide various options how to consume responses.
1048-- | Here we need to provide various options how to consume responses.
993
1049
994class HttpResponse response where
1050class HttpResponse response where
1051+
1052+ type HttpResponseBody response :: *
1053+
1054+ toVanillaResponse :: response -> L.Response (HttpResponseBody response)
1055+
995 getHttpResponse :: L.Manager -> L.Request -> IO response
1056 getHttpResponse :: L.Manager -> L.Request -> IO response
996
1057
997----------------------------------------------------------------------------
1058----------------------------------------------------------------------------