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
 socketFamily (SockAddrInet6 _ _ _ _) = AF_INET6
 socketFamily (SockAddrUnix _)        = AF_UNIX
 
+withPort (SockAddrInet _ a)      port = SockAddrInet (toEnum port) a
+withPort (SockAddrInet6 _ a b c) port = SockAddrInet6 (toEnum port) a b c
+
+withoutPort = (`withPort` 0)