Haskell server that controls a HTML5 canvas