diff --git a/mohws.cabal b/mohws.cabal --- a/mohws.cabal +++ b/mohws.cabal @@ -1,5 +1,5 @@ Name: mohws -Version: 0.2.1.5 +Version: 0.2.1.6 Author: Simon Marlow, Bjorn Bringert Copyright: Simon Marlow, Bjorn Bringert Maintainer: Henning Thielemann @@ -28,7 +28,7 @@ Source-Repository this Type: darcs Location: http://code.haskell.org/mohws/ - Tag: 0.2.1.5 + Tag: 0.2.1.6 Flag dynamic description: Build server with dynamically loaded plugins @@ -42,8 +42,8 @@ unix >=2.3 && <2.8, parsec >=2.1 && <3.2, html >=1.0 && <1.1, - process >=1.0 && <1.5, - containers >=0.1 && <0.6, + process >=1.0 && <1.7, + containers >=0.1 && <0.7, old-time >=1.0 && <1.2, old-locale >=1.0 && <1.1, bytestring >=0.9 && <0.11, @@ -52,7 +52,7 @@ transformers >=0.2 && <0.6, explicit-exception >=0.1 && <0.2, data-accessor >=0.2 && <0.3, - directory >=1.0 && <1.3, + directory >=1.0 && <1.4, -- base-4.3 need for Exception.mask base >=4.3 && <5 diff --git a/src/Network/MoHWS/Server.hs b/src/Network/MoHWS/Server.hs --- a/src/Network/MoHWS/Server.hs +++ b/src/Network/MoHWS/Server.hs @@ -388,7 +388,8 @@ return resp serverRequest :: (Stream.C body) => - ServerEnv.T body ext -> Request.T body -> HostAddress -> IO (ServerRequest.T body, Maybe (Response.T body)) + ServerEnv.T body ext -> Request.T body -> HostAddress -> + IO (ServerRequest.T body, Maybe (Response.T body)) serverRequest st req haddr = let conf = ServerEnv.config st sreq = @@ -414,7 +415,8 @@ ) serverRequestExc :: (Stream.C body) => - ServerEnv.T body ext -> Request.T body -> HostAddress -> ExceptionalT (Response.T body) (StateT (ServerRequest.T body) IO) () + ServerEnv.T body ext -> Request.T body -> HostAddress -> + ExceptionalT (Response.T body) (StateT (ServerRequest.T body) IO) () serverRequestExc st req haddr = let conf = ServerEnv.config st use = Exc.mapExceptionalT lift