add lens for onPresenceChange

pontarius · Sep 17, 2014 · 069b9ef · 069b9ef
1 parent f99bcf0
commit 069b9ef
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/source/Network/Xmpp/Lens.hs b/source/Network/Xmpp/Lens.hs
@@ -94,6 +94,7 @@ module Network.Xmpp.Lens
        , sessionStanzaIDsL
        , ensableRosterL
        , pluginsL
+       , onPresenceChangeL
          -- ** IM
          -- *** Roster
          -- **** 'Roster'
@@ -152,6 +153,7 @@ import           Network.TLS as TLS
 import           Network.Xmpp.Concurrent.Types
 import           Network.Xmpp.IM.Message
 import           Network.Xmpp.IM.Presence
+import           Network.Xmpp.IM.PresenceTracker.Types
 import           Network.Xmpp.IM.Roster.Types
 import           Network.Xmpp.Types
 
@@ -538,6 +540,11 @@ pluginsL :: Lens SessionConfiguration [Plugin]
 pluginsL inj sc@SessionConfiguration{plugins = x}
     = (\x' -> sc{plugins = x'}) <$> inj x
 
+onPresenceChangeL :: Lens SessionConfiguration (Maybe ( Jid -> PeerStatus
+                                                        -> PeerStatus -> IO ()))
+onPresenceChangeL inj sc@SessionConfiguration{onPresenceChange = x}
+    = (\x' -> sc{onPresenceChange = x'}) <$> inj x
+
 -- | Access clientServerIdentification inside tlsParams inside streamConfiguration
 tlsServerIdentificationL  :: Lens SessionConfiguration (String, BS.ByteString)
 tlsServerIdentificationL = streamConfigurationL