1 files changed, 2 insertions(+), 2 deletions(-)

M Main.hs

@@ 216,8 216,8 @@ viteltiy db toVitelity toComponent = do
 									messageID = Just $ fromString ("CHEOGRAM%" <> fromMaybe "UUIDFAIL" uuid),
 									messagePayloads = [Element (fromString "{jabber:component:accept}body") [] [NodeContent $ ContentText msg]]
 								}
-							Nothing -> print "ERROR: trying to send, but no room joined"
-					Nothing -> print "ERROR: no command parsed"
+							Nothing -> writeStanzaChan toVitelity $ mkSMS tel (fromString "You are not joined to a room")
+					Nothing -> writeStanzaChan toVitelity $ mkSMS tel (fromString "You sent an invalid message")
 			_ -> return ()
 
 openTokyoCabinet :: (TC.TCDB a) => FilePath -> IO a