server: tiny refactoring

This commit is contained in:
Sönke Hahn 2016-01-15 00:06:01 +01:00
parent 385ea2686b
commit dd92bfd565

View file

@ -66,7 +66,7 @@ import Servant.Server.Internal.ServantErr
class HasServer layout where
type ServerT layout (m :: * -> *) :: *
route :: Proxy layout -> Delayed (Server layout) -> Router
route :: Proxy layout -> Delayed (ServerT layout (ExceptT ServantErr IO)) -> Router
type Server layout = ServerT layout (ExceptT ServantErr IO)