fix build with old version of http-client
This commit is contained in:
parent
5f84a102ee
commit
e5a404ebe2
1 changed files with 1 additions and 1 deletions
|
@ -424,7 +424,7 @@ matchStatusCodeHeadersException :: (Status -> ResponseHeaders -> Bool) -> HttpEx
|
||||||
matchStatusCodeHeadersException want e@(StatusCodeException s r _)
|
matchStatusCodeHeadersException want e@(StatusCodeException s r _)
|
||||||
| want s r = Just e
|
| want s r = Just e
|
||||||
| otherwise = Nothing
|
| otherwise = Nothing
|
||||||
matchStatusCodeException _ _ = Nothing
|
matchStatusCodeHeadersException _ _ = Nothing
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if MIN_VERSION_http_client(0,5,0)
|
#if MIN_VERSION_http_client(0,5,0)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue