remove sessionEndHandler

source/Network/Xmpp.hs

@@ -37,7 +37,6 @@ module Network.Xmpp
   , startTLS
   , auth
   , endSession
-  , setSessionEndHandler
   , setConnectionClosedHandler
   -- * JID
   -- | A JID (historically: Jabber ID) is XMPPs native format

source/Network/Xmpp/Concurrent/Monad.hs

@@ -224,12 +224,6 @@ modifyHandlers f = do
     eh <- asks eventHandlers
     liftIO . atomically $ writeTVar eh . f =<< readTVar eh
 
--- | Sets the handler to be executed when the session ends.
-setSessionEndHandler :: Xmpp () -> Xmpp ()
-setSessionEndHandler eh = do
-    r <- ask
-    modifyHandlers (\s -> s{sessionEndHandler = runReaderT eh r})
-
 -- | Sets the handler to be executed when the server connection is closed.
 setConnectionClosedHandler :: (StreamError -> Xmpp ()) -> Xmpp ()
 setConnectionClosedHandler eh = do
@@ -247,7 +241,6 @@ endSession :: Xmpp ()
 endSession = do -- TODO: This has to be idempotent (is it?)
     void $ withConnection xmppKillConnection
     liftIO =<< asks stopThreads
-    runHandler sessionEndHandler
 
 -- | Close the connection to the server.
 closeConnection :: Xmpp ()

source/Network/Xmpp/Concurrent/Threads.hs

@@ -189,8 +189,7 @@ startThreads = do
         return ()
     zeroEventHandlers :: EventHandlers
     zeroEventHandlers = EventHandlers
-        { sessionEndHandler       = return ()
+        { connectionClosedHandler = \_ -> return ()
-        , connectionClosedHandler = \_ -> return ()
         }
 
 -- | Creates and initializes a new Xmpp session.

source/Network/Xmpp/Concurrent/Types.hs

@@ -25,8 +25,7 @@ type IQHandlers = (Map.Map (IQRequestType, Text) (TChan IQRequestTicket)
 -- Handlers to be run when the Xmpp session ends and when the Xmpp connection is
 -- closed.
 data EventHandlers = EventHandlers
-    { sessionEndHandler       :: IO ()
+    { connectionClosedHandler :: StreamError -> IO ()
-    , connectionClosedHandler :: StreamError -> IO ()
     }
 
 -- The Session object is the Xmpp (ReaderT) state.