~singpolyma/cheogram

d834b47c677485825199a4ce462a8b7bb603766e — Stephen Paul Weber 7 years ago 703de46
Debug for #29
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 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