~singpolyma/cheogram

f68f2d51890ff84b6f519428b9783dac0dbd4d53 — Stephen Paul Weber 8 years ago 0cd9825
Better error print
1 files changed, 2 insertions(+), 2 deletions(-)

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