From 93d5951f11923cdb6ccfa6a84a971d69e98b886a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 24 Sep 2017 16:17:43 -0400 Subject: [PATCH] remove redundant pattern match --- Utility/Url.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Utility/Url.hs b/Utility/Url.hs index 27913033bb..abd5f7ae53 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