implement setLineDash support (#56)

Author: Karl Smeltzer

src/Graphics/Canvas.js

@@ -81,6 +81,14 @@ exports.setLineWidth = function(ctx) {
     };
 };
 
+exports.setLineDash = function(ctx) {
+    return function(dash) {
+        return function() {
+            ctx.setLineDash(dash);
+        };
+    };
+};
+
 exports.setFillStyle = function(ctx) {
     return function(style) {
         return function() {

src/Graphics/Canvas.purs

@@ -37,6 +37,7 @@ module Graphics.Canvas
   , canvasToDataURL
 
   , setLineWidth
+  , setLineDash
   , setFillStyle
   , setStrokeStyle
   , setShadowBlur
@@ -203,6 +204,9 @@ foreign import canvasToDataURL :: forall eff. CanvasElement -> Eff (canvas :: CA
 -- | Set the current line width.
 foreign import setLineWidth :: forall eff. Context2D -> Number -> Eff (canvas :: CANVAS | eff) Unit
 
+-- | Set the current line dash pattern.
+foreign import setLineDash :: forall eff. Context2D -> Array Number -> Eff (canvas :: CANVAS | eff) Unit
+
 -- | Set the current fill style/color.
 foreign import setFillStyle :: forall eff. Context2D -> String -> Eff (canvas :: CANVAS | eff) Unit