Haskell rewrite

Pulls messages containing metric data in JSON format from RabbitMQ and then publishes them like the python version.
I suspect this can be refactored to get rid of the chained `case` statements and duplication - use bind with Maybe?