Haskell rewrite

Pulls messages containing metric data in JSON format from RabbitMQ and then publishes them like the python version.
Some comments here would be helpful I think; took me a second to work out what this if statement was doing.