remove redundant pattern match

This commit is contained in:
Joey Hess 2017-09-24 16:17:43 -04:00
parent d350530091
commit 93d5951f11
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -378,5 +378,4 @@ matchHttpExceptionContent :: (HttpException -> Bool) -> HttpException -> Maybe H
matchHttpExceptionContent want e
| want e = Just e
| otherwise = Nothing
matchHttpExceptionContent _ _ = Nothing
#endif