From dd92bfd565b7cc18cf73a4dd9ca86bc3356f368f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=B6nke=20Hahn?= Date: Fri, 15 Jan 2016 00:06:01 +0100 Subject: [PATCH] server: tiny refactoring --- servant-server/src/Servant/Server/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-server/src/Servant/Server/Internal.hs b/servant-server/src/Servant/Server/Internal.hs index 730e96d5..54bab782 100644 --- a/servant-server/src/Servant/Server/Internal.hs +++ b/servant-server/src/Servant/Server/Internal.hs @@ -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)