Merge pull request #4 from jdeseno/canvas-data-url

Adds function to get the data url from a canvas

Author: paf31

src/Graphics/Canvas.purs

@@ -69,6 +69,13 @@ getCanvasDimensions ce = do
 setCanvasDimensions :: forall eff. Dimensions -> CanvasElement -> Eff (canvas :: Canvas | eff) CanvasElement
 setCanvasDimensions d ce = setCanvasHeight d.height ce >>= setCanvasWidth d.width
 
+foreign import canvasToDataURL
+  "function canvasToDataURL(canvas) {\
+  \   return function(){\
+  \     return canvas.toDataURL();\
+  \   };\
+  \};" :: forall eff. CanvasElement -> Eff (canvas :: Canvas | eff) String
+
 -- |
 -- Context Properties
 --