eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Remove derived 'Show' instance for 'RR'

Browse source
This commit is contained in:
aaron levin 2015-08-10 13:32:46 -04:00 committed by Arian van Putten
parent 9aaf426be0
commit ece355bf58
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-server/src/Servant/Server/Internal/RoutingApplication.hs
View file

@ -31,7 +31,7 @@ type RoutingApplication =
-- | A wrapper around @'Either' 'RouteMismatch' a@. -- | A wrapper around @'Either' 'RouteMismatch' a@.
newtype RouteResult a = newtype RouteResult a =
RR { routeResult :: Either RouteMismatch 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. -- | If we get a `Right`, it has precedence over everything else.
-- --