From 6be8b9d2d1cc993c1cb3fcdd6a1a682ff1098912 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sun, 14 Feb 2016 16:38:02 -0500 Subject: [PATCH] Log exact items in MUC on restart --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 01a8e2e..6e25ac1 100644 --- a/Main.hs +++ b/Main.hs @@ -623,7 +623,7 @@ componentStanza _ _ _ toComponent _ (ReceivedIQ (IQ { iqType = IQGet, iqFrom = J } componentStanza db _ _ toComponent componentHost (ReceivedIQ (iq@IQ { iqType = IQResult, iqFrom = Just from, iqTo = Just to, iqID = Just id })) | fromString "CHEOGRAMSTARTUP%" `T.isPrefixOf` id = do - log "CHEOGRAMSTARTUP RESULT" (from, to, iq) + log "CHEOGRAMSTARTUP RESULT" (from, to, items, iq) -- Room exists and has people in it presence <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db ("presence\0" <> T.unpack (bareTxt from))) True <- TC.runTCM $ TC.put db ("presence\0" <> T.unpack (bareTxt from)) (show $ sort $ nubBy (equating fst) items) -- 2.34.7