sendMessage :: ByteString -> Logic ()
sendMessage x = Logic (wrap (Emit x (return ())))
sendMessage :: ByteString -> Logic ()
sendMessage x = Logic (wrap (Emit x (return ())))
sendMessage x = Logic (wrap (Emit x (return ())))