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
18 lines
733 B
Haskell
18 lines
733 B
Haskell
--- ./Network/HTTP/Server/Utils.hs.orig 2009-06-13 03:58:45.000000000 +0200
|
|
+++ ./Network/HTTP/Server/Utils.hs 2012-05-13 21:03:02.570464902 +0200
|
|
@@ -48,11 +48,11 @@
|
|
|
|
ppSockAddr :: SockAddr -> ShowS
|
|
ppSockAddr (SockAddrInet port addr) = ppHostAddress addr
|
|
- . showChar ':' . shows port
|
|
#ifdef _OS_UNIX
|
|
-ppSockAddr (SockAddrInet6 port _ addr _) =
|
|
- ppHostAddress6 addr . showChar ':' . shows port
|
|
+ppSockAddr (SockAddrInet6 port _ addr _) = ppHostAddress6 addr
|
|
ppSockAddr (SockAddrUnix sock) = showString "unix/" . showString sock
|
|
#endif
|
|
|
|
-
|
|
+ppSockPort :: SockAddr -> Int
|
|
+ppSockPort (SockAddrInet port _) = fromIntegral port
|
|
+ppSockPort (SockAddrInet6 port _ _ _) = fromIntegral port
|