diff --git a/shine.cabal b/shine.cabal
--- a/shine.cabal
+++ b/shine.cabal
@@ -1,5 +1,5 @@
 name: shine
-version: 0.2.0.1
+version: 0.2.0.2
 cabal-version: >=1.8
 build-type: Simple
 license: MIT
diff --git a/src/Graphics/Shine.hs b/src/Graphics/Shine.hs
--- a/src/Graphics/Shine.hs
+++ b/src/Graphics/Shine.hs
@@ -61,7 +61,7 @@
 customAttributesCanvas :: Document -> String -> JSM CanvasRenderingContext2D
 customAttributesCanvas doc attrs = do
     Just body <- getBody doc
-    setInnerHTML body $ Just canvasHtml
+    setInnerHTML body canvasHtml
     Just c <- getElementById doc "canvas"
     toContext c
   where canvasHtml :: String