{"body":"{-# LANGUAGE OverloadedStrings #-}\n\nmodule Example where\n\nimport Network.MQTT.Client\nimport Network.URI (parseURI)\n\nmain :: IO ()\nmain = do\n  let (Just uri) = parseURI \"mqtt://test.mosquitto.org\"\n  mc <- connectURI mqttConfig uri\n  publish mc \"tmp/topic\" \"hello!\" False\n","name":"Example.hs","extension":"hs","url":"https://www.irccloud.com/pastebin/kqAEyfow/Example.hs","modified":1654542959,"id":"kqAEyfow","size":270,"lines":12,"own_paste":false,"theme":"","date":1654542959}