fix build with old http-client

1 files changed, 8 insertions, 0 deletions

diff --git a/Utility/Url.hs b/Utility/Url.hs
index e6dcd3388..27913033b 100644
--- a/Utility/Url.hs
+++ b/Utility/Url.hs
@@ -367,8 +367,16 @@ matchStatusCodeException want e@(StatusCodeException s _ _)
 matchStatusCodeException _ _ = Nothing
 #endif
 
+#if MIN_VERSION_http_client(0,5,0)
 matchHttpExceptionContent :: (HttpExceptionContent -> Bool) -> HttpException -> Maybe HttpException
 matchHttpExceptionContent want e@(HttpExceptionRequest _ hec)
 	| want hec = Just e
 	| otherwise = Nothing
 matchHttpExceptionContent _ _ = Nothing
+#else
+matchHttpExceptionContent :: (HttpException -> Bool) -> HttpException -> Maybe HttpException
+matchHttpExceptionContent want e
+	| want e = Just e
+	| otherwise = Nothing
+matchHttpExceptionContent _ _ = Nothing
+#endif