Updated to work with purs-0.11.3 (#24)

Author: kejace

bower.json

@@ -16,13 +16,13 @@
     "url": "git://github.com/sharkdp/purescript-flare.git"
   },
   "dependencies": {
-    "purescript-foldable-traversable": "^2.0.0",
-    "purescript-dom": "^3.0.0",
-    "purescript-signal": "^8.0.0",
-    "purescript-canvas": "^2.0.0",
-    "purescript-drawing": "^2.0.0",
-    "purescript-smolder": "^6.0.0",
-    "purescript-nonempty": "^3.0.0",
-    "purescript-datetime": "^2.0.0"
+    "purescript-foldable-traversable": "^3.0.0",
+    "purescript-dom": "^4.1.0",
+    "purescript-signal": "^9.0.0",
+    "purescript-canvas": "^3.0.0",
+    "purescript-drawing": "^3.0.0",
+    "purescript-smolder": "^7.0.0",
+    "purescript-nonempty": "^4.0.0",
+    "purescript-datetime": "^3.0.0"
   }
 }

src/Flare/Drawing.purs

@@ -32,7 +32,7 @@ runFlareDrawing controls canvasID ui = do
   let render' drawing = do
         w <- getCanvasWidth canvas
         h <- getCanvasHeight canvas
-        clearRect ctx { x: 0.0, y: 0.0, w, h }
+        _ <- clearRect ctx { x: 0.0, y: 0.0, w, h }
         render ctx drawing
 
   runFlareWith controls render' ui