mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with old http-client

Browse source
This commit is contained in:
Joey Hess 2017-09-13 15:35:42 -04:00
parent bf48ba4ef7
commit 01068d8280
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Utility/Url.hs
View file

@ -367,8 +367,16 @@ matchStatusCodeException want e@(StatusCodeException s _ _)
matchStatusCodeException _ _ = Nothing matchStatusCodeException _ _ = Nothing
#endif #endif
#if MIN_VERSION_http_client(0,5,0)
matchHttpExceptionContent :: (HttpExceptionContent -> Bool) -> HttpException -> Maybe HttpException matchHttpExceptionContent :: (HttpExceptionContent -> Bool) -> HttpException -> Maybe HttpException
matchHttpExceptionContent want e@(HttpExceptionRequest _ hec) matchHttpExceptionContent want e@(HttpExceptionRequest _ hec)
| want hec = Just e | want hec = Just e
| otherwise = Nothing | otherwise = Nothing
matchHttpExceptionContent _ _ = Nothing matchHttpExceptionContent _ _ = Nothing
#else
matchHttpExceptionContent :: (HttpException -> Bool) -> HttpException -> Maybe HttpException
matchHttpExceptionContent want e
| want e = Just e
| otherwise = Nothing
matchHttpExceptionContent _ _ = Nothing
#endif