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

server: tiny refactoring

Browse source
This commit is contained in:
Sönke Hahn 2016-01-15 00:06:01 +01:00
parent 385ea2686b
commit dd92bfd565
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.hs
View file

@ -66,7 +66,7 @@ import Servant.Server.Internal.ServantErr
class HasServer layout where class HasServer layout where
type ServerT layout (m :: * -> *) :: * 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) type Server layout = ServerT layout (ExceptT ServantErr IO)