diff --git a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs index 7116a8b2..368276fc 100644 --- a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs +++ b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs @@ -46,9 +46,6 @@ data RouteMismatch = | HttpError Status [Header] (Maybe BL.ByteString) -- ^ an even even more informative arbitrary HTTP response code error. | RouteMismatch Response -- ^ an arbitrary mismatch with custom Response. -instance Show RouteMismatch where - show = const "hello" - -- | specialized 'Less Than' for use with Monoid RouteMismatch (<=:) :: RouteMismatch -> RouteMismatch -> Bool {-# INLINE (<=:) #-}