From d834b47c677485825199a4ce462a8b7bb603766e Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Fri, 29 Jan 2016 11:43:11 -0500 Subject: [PATCH] Debug for #29 --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index c375539..a2afc5a 100644 --- a/Main.hs +++ b/Main.hs @@ -258,7 +258,7 @@ handleJoinPartRoom db toVitelity toComponent existingRoom from to tel payloads j fromString $ if join then "joined" else "left", fromString " the group" ] - | otherwise = return () + | otherwise = putStrLn (fromString "----- UNKNOWN STATUS ------") >> print (existingRoom, from, to, tel, payloads, join) where resourceFrom = fromMaybe mempty (strResource <$> jidResource from) mod = if join then not else id -- 2.38.5