forked from Lainports/freebsd-ports
46e9ab0ca5
Please note that port revision for all the Haskell ports without version changes are also bumped. Other per-port updates are coming soon (in separate commits)! In addition to that, separate -docs ports are no longer needed so they are now removed. Thanks ashish@ for the assistance. Obtained from: FreeBSD Haskell
13 lines
580 B
Haskell
13 lines
580 B
Haskell
--- ./Network/HTTP/Server.hs.orig 2009-06-13 03:58:45.000000000 +0200
|
|
+++ ./Network/HTTP/Server.hs 2012-05-13 21:03:32.137467690 +0200
|
|
@@ -123,8 +123,9 @@
|
|
|
|
client sock addr =
|
|
do let name = ppSockAddr addr ""
|
|
+ let port = ppSockPort addr
|
|
logInfo lg 0 ("Accepted connection from " ++ name)
|
|
- conn <- socketConnection name sock -- XXX: name?
|
|
+ conn <- socketConnection name port sock -- XXX: name?
|
|
setStreamHooks conn nullHooks { hook_close =
|
|
logInfo lg 0 ("Closing connection to " ++ ppSockAddr addr "")
|
|
}
|