From 9aaf426be0cc6af1929a86a86147db23b805aaa0 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 b2e4a97c..0dfb66d3 100644 --- a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs +++ b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs @@ -54,9 +54,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 (<=:) #-}