fix build with old version of http-client

This commit is contained in:
Joey Hess 2018-04-09 13:04:23 -04:00
parent 5f84a102ee
commit e5a404ebe2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -424,7 +424,7 @@ matchStatusCodeHeadersException :: (Status -> ResponseHeaders -> Bool) -> HttpEx
matchStatusCodeHeadersException want e@(StatusCodeException s r _)
| want s r = Just e
| otherwise = Nothing
matchStatusCodeException _ _ = Nothing
matchStatusCodeHeadersException _ _ = Nothing
#endif
#if MIN_VERSION_http_client(0,5,0)