From 4cb14a66598dac124666d0cfbc489ec302d8a4a4 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Mon, 10 Aug 2015 13:31:11 -0400 Subject: [PATCH] Remove 'Show' instance for RouteMismatch --- .../src/Servant/Server/Internal/RoutingApplication.hs | 3 --- 1 file changed, 3 deletions(-) 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 (<=:) #-}