happstack-server 7.1.2 → 7.1.3

raw patch · 2 files changed

+10/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• happstack-server.cabal +1/−1
• src/Happstack/Server/Internal/Socket.hs +9/−2

@@ -1,5 +1,5 @@ Name:                happstack-server-Version:             7.1.2+Version:             7.1.3 Synopsis:            Web related tools and services. Description:         Happstack Server provides an HTTP server and a rich set of functions for routing requests, handling query parameters, generating responses, working with cookies, serving files, and more. For in-depth documentation see the Happstack Crash Course <http://happstack.com/docs/crashcourse/index.html> License:             BSD3

@@ -56,9 +56,16 @@ acceptLite :: S.Socket -> IO (S.Socket, S.HostName, S.PortNumber) acceptLite sock = do   (sock', addr) <- S.accept sock-  (N.PortNumber p) <- N.socketPort sock'+  let port = getPort addr   let peer = sockAddrToHostName addr-  return (sock', peer, p)+  return (sock', peer, port)++getPort :: S.SockAddr -> S.PortNumber+getPort addr =+    case addr of+        (S.SockAddrInet p _) -> p+        (S.SockAddrInet6 p _ _ _ ) -> p+        _ -> error "Unsupported socket"  sockAddrToHostName ::  S.SockAddr -> S.HostName sockAddrToHostName addr =