1 files changed, 4 insertions, 3 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index ea1500d4..c9132d0f 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -92,8 +92,8 @@ import qualified Connection
 
 peerport :: PortNumber
 peerport = 5269
-clientport :: PortNumber
-clientport = 5222
+-- clientport :: PortNumber
+-- clientport = 5222
 
 my_uuid :: Text
 my_uuid = "154ae29f-98f2-4af4-826d-a40c8a188574"
@@ -213,6 +213,7 @@ data XMPPServerParameters =
     , -- | Called when a remote peer informs us of our subscription status.
       xmppPeerInformSubscription :: IO () -> ConnectionKey -> Stanza -> IO ()
     , xmppVerbosity          :: IO Int
+    , xmppClientPort :: PortNumber -- 5222
     }
 
 
@@ -1841,7 +1842,7 @@ xmppServer xmpp = do
         hPutStrLn stderr $ "Starting peer listen"
         control sv (Listen peerport peer_params)
         hPutStrLn stderr $ "Starting client listen"
-        control sv (Listen clientport client_params)
+        control sv (Listen (xmppClientPort xmpp) client_params)
     return XMPPServer { _xmpp_sv = sv, _xmpp_peer_params = peer_params }
 
 #if MIN_VERSION_stm(2,4,0)