Draw with Haskell to both SDL and Canvas