From ece355bf5840fa85398ec32b3e421ce42d4efe52 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Mon, 10 Aug 2015 13:32:46 -0400 Subject: [PATCH] Remove derived 'Show' instance for 'RR' --- .../src/Servant/Server/Internal/RoutingApplication.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs index 0dfb66d3..3e857e28 100644 --- a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs +++ b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs @@ -31,7 +31,7 @@ type RoutingApplication = -- | A wrapper around @'Either' 'RouteMismatch' a@. newtype RouteResult a = RR { routeResult :: Either RouteMismatch a } - deriving (Show, Functor, Applicative, Monad) + deriving (Functor, Applicative, Monad) -- | If we get a `Right`, it has precedence over everything else. --