Implement appropriate Show instances for TextAlign, Composite and

PatternRepeat

Author: igagen

docs/Graphics/Canvas.md

@@ -669,6 +669,17 @@ data PatternRepeat
 
 Enumerates the different types of pattern repetitions.
 
+##### Instances
+``` purescript
+Show PatternRepeat
+```
+
+#### `toString`
+
+``` purescript
+toString :: PatternRepeat -> String
+```
+
 #### `createPattern`
 
 ``` purescript
@@ -680,7 +691,7 @@ Create a new canvas pattern (repeatable image).
 #### `setPatternFillStyle`
 
 ``` purescript
-setPatternFillStyle :: forall eff. CanvasGradient -> Context2D -> Eff (canvas :: Canvas | eff) Context2D
+setPatternFillStyle :: forall eff. CanvasPattern -> Context2D -> Eff (canvas :: Canvas | eff) Context2D
 ```
 
 Set the Context2D fillstyle to the CanvasPattern.

src/Graphics/Canvas.purs

@@ -388,11 +388,11 @@ data TextAlign
   = AlignLeft | AlignRight | AlignCenter | AlignStart | AlignEnd
 
 instance showTextAlign :: Show TextAlign where
-  show AlignLeft = "left"
-  show AlignRight = "right"
-  show AlignCenter = "center"
-  show AlignStart = "start"
-  show AlignEnd = "end"
+  show AlignLeft = "AlignLeft"
+  show AlignRight = "AlignRight"
+  show AlignCenter = "AlignCenter"
+  show AlignStart = "AlignStart"
+  show AlignEnd = "AlignEnd"
 
 foreign import textAlignImpl :: forall eff. Context2D -> Eff (canvas :: Canvas | eff) String
 
@@ -414,7 +414,13 @@ foreign import setTextAlignImpl :: forall eff. Context2D -> String -> (Eff (canv
 -- | Set the current text alignment.
 setTextAlign :: forall eff. Context2D -> TextAlign -> Eff (canvas :: Canvas | eff) Context2D
 setTextAlign ctx textalign =
-  setTextAlignImpl ctx (show textalign)
+  setTextAlignImpl ctx (toString textalign)
+  where
+    toString AlignLeft = "left"
+    toString AlignRight = "right"
+    toString AlignCenter = "center"
+    toString AlignStart = "start"
+    toString AlignEnd = "end"
 
 -- | Text metrics:
 -- |
@@ -482,14 +488,22 @@ foreign import drawImageFull :: forall eff. Context2D -> CanvasImageSource -> Nu
 -- | Enumerates the different types of pattern repetitions.
 data PatternRepeat = Repeat | RepeatX | RepeatY | NoRepeat
 
+instance showPatternRepeat :: Show PatternRepeat where
+  show Repeat = "Repeat"
+  show RepeatX = "RepeatX"
+  show RepeatY = "RepeatY"
+  show NoRepeat = "NoRepeat"
+
 foreign import createPatternImpl :: forall eff. CanvasImageSource -> String -> Context2D -> Eff (canvas :: Canvas | eff) CanvasPattern
 
 -- | Create a new canvas pattern (repeatable image).
 createPattern :: forall eff. CanvasImageSource -> PatternRepeat -> Context2D -> Eff (canvas :: Canvas | eff) CanvasPattern
-createPattern img Repeat   = createPatternImpl img "repeat"
-createPattern img RepeatX  = createPatternImpl img "repeat-x"
-createPattern img RepeatY  = createPatternImpl img "repeat-y"
-createPattern img NoRepeat = createPatternImpl img "no-repeat"
+createPattern img repeat = createPatternImpl img (toString repeat)
+  where
+    toString Repeat = "repeat"
+    toString RepeatX = "repeat-x"
+    toString RepeatY = "repeat-y"
+    toString NoRepeat = "no-repeat"
 
 -- | Set the Context2D fillstyle to the CanvasPattern.
 foreign import setPatternFillStyle :: forall eff. CanvasPattern -> Context2D -> Eff (canvas :: Canvas | eff) Context2D