Daemon options to enable or disable XMPP.

1 files changed, 4 insertions, 3 deletions

diff --git a/Presence/Presence.hs b/Presence/Presence.hs
index c556a170..97b9d5b8 100644
--- a/Presence/Presence.hs
+++ b/Presence/Presence.hs
@@ -13,7 +13,7 @@ import Control.Concurrent.STM.TMVar
 import Control.Monad.Trans.Resource (runResourceT)
 import Control.Monad.Trans
 import Control.Monad.IO.Class (MonadIO, liftIO)
-import Network.Socket ( SockAddr(..) )
+import Network.Socket ( SockAddr(..), PortNumber )
 import System.Endian (fromBE32)
 import Data.List (nub, (\\), intersect, groupBy, sort, sortBy )
 import Data.Ord (comparing )
@@ -124,8 +124,8 @@ newPresenceState cw toxman xmpp = atomically $ do
             }
 
 
-presenceHooks :: PresenceState -> Int -> XMPPServerParameters
-presenceHooks state verbosity = XMPPServerParameters
+presenceHooks :: PresenceState -> Int -> Maybe PortNumber -> XMPPServerParameters
+presenceHooks state verbosity mport = XMPPServerParameters
     { xmppChooseResourceName        = chooseResourceName state
     , xmppTellClientHisName         = tellClientHisName state
     , xmppTellMyNameToClient        = textHostName
@@ -148,6 +148,7 @@ presenceHooks state verbosity = XMPPServerParameters
     , xmppClientInformSubscription  = clientInformSubscription state
     , xmppPeerInformSubscription    = peerInformSubscription state
     , xmppVerbosity                 = return verbosity
+    , xmppClientPort                = fromMaybe 5222 mport
     }