From 5970d881222cb94f72accf38b15b710be6c81c9a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 24 Sep 2017 16:17:43 -0400 Subject: remove redundant pattern match --- Utility/Url.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Utility/Url.hs b/Utility/Url.hs index 27913033b..abd5f7ae5 100644 --- a/Utility/Url.hs +++ b/Utility/Url.hs @@ -378,5 +378,4 @@ matchHttpExceptionContent :: (HttpException -> Bool) -> HttpException -> Maybe H matchHttpExceptionContent want e | want e = Just e | otherwise = Nothing -matchHttpExceptionContent _ _ = Nothing #endif -- cgit v1.2.3