From f68f2d51890ff84b6f519428b9783dac0dbd4d53 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 24 Nov 2015 15:41:44 -0500 Subject: [PATCH] Better error print --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index 07a97ec..e641293 100644 --- a/Main.hs +++ b/Main.hs @@ -205,8 +205,8 @@ viteltiy db toVitelity toComponent = do messageID = Just $ fromString ("GROUPSMS%" <> fromMaybe "UUIDFAIL" uuid), messagePayloads = [Element (fromString "{jabber:component:accept}body") [] [NodeContent $ ContentText msg]] } - Nothing -> print "ERROR" - Nothing -> print "ERROR" + Nothing -> print "ERROR: trying to send, but no room joined" + Nothing -> print "ERROR: no command parsed" _ -> return () openTokyoCabinet :: (TC.TCDB a) => FilePath -> IO a -- 2.38.5