From 3bd2829cf28b45e21cb1411199b1e1f409c63476 Mon Sep 17 00:00:00 2001 From: Tissevert Date: Mon, 18 Nov 2019 17:11:05 +0100 Subject: [PATCH] Switch session logging out and relaying the log-out message to keep the sessionID accessible until the end --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index c620c75..025b4a2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -21,8 +21,8 @@ import qualified Session (open) exit :: App.T () exit = do - asks App.sessionID >>= App.update . Server.logOut Messaging.relay Message.LogOut broadcast + asks App.sessionID >>= App.update . Server.logOut serverApp :: App.T () -> App.T () -> IO ServerApp serverApp onEnter onExit = do