Initial prototype for haskell publisher

Behaviour should be equivalent to python publisher and should be valid for icehouse
Maybe 'publishEvent' would be a more descriptive name here?