STOMP messaging in haskell