Haskell TCP to WebSockets broadcasting app