From e5a404ebe29dce86f3a5e4e3638f69e4cc44928e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 9 Apr 2018 13:04:23 -0400 Subject: [PATCH] fix build with old version of http-client --- Utility/Url.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Url.hs b/Utility/Url.hs index fddc75c8eb..eae79058ee 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -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)