diff options
| author | joe <joe@jerkface.net> | 2013-07-01 19:20:06 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-07-01 19:20:06 -0400 |
| commit | 99ae191859d14f06b531801eac386686605d333e (patch) | |
| tree | eebd55e6b2c400644ab5beb44077abce7180c210 /Presence/XMPPTypes.hs | |
| parent | b92669321d536d8b935c77c63f5c68ccb99c938c (diff) | |
track remote useres in the remoteUsers map.
Diffstat (limited to 'Presence/XMPPTypes.hs')
| -rw-r--r-- | Presence/XMPPTypes.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs index 8af1018c..b46b4294 100644 --- a/Presence/XMPPTypes.hs +++ b/Presence/XMPPTypes.hs | |||
| @@ -164,4 +164,8 @@ socketFamily (SockAddrInet _ _) = AF_INET | |||
| 164 | socketFamily (SockAddrInet6 _ _ _ _) = AF_INET6 | 164 | socketFamily (SockAddrInet6 _ _ _ _) = AF_INET6 |
| 165 | socketFamily (SockAddrUnix _) = AF_UNIX | 165 | socketFamily (SockAddrUnix _) = AF_UNIX |
| 166 | 166 | ||
| 167 | withPort (SockAddrInet _ a) port = SockAddrInet (toEnum port) a | ||
| 168 | withPort (SockAddrInet6 _ a b c) port = SockAddrInet6 (toEnum port) a b c | ||
| 169 | |||
| 170 | withoutPort = (`withPort` 0) | ||
| 167 | 171 | ||