~singpolyma/cheogram

b03f03d9dac21b4467918abcbb789676b5cb38a8 — Stephen Paul Weber 6 years ago a06e064
Stop printing all the vitelity in Nothing lines
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 1044,7 1044,7 @@ viteltiy db chunks toVitelity toComponent componentHost conferenceServers = do

	flip catchError (\e -> liftIO (log "viteltiy part 2 EXCEPTION" e >> killThread thread)) $ forever $ do
		m <- getMessage <$> getStanza
		log "VITELITY  IN" m
		mapM_ (log "VITELITY  IN") m
		liftIO $ case (strNode <$> (jidNode =<< messageFrom =<< m), getBody "jabber:client" =<< m) of
			(Just tel, Just txt) ->
				case parseOnly (chunkParser tel) txt of