fix

Author: igagen

src/Graphics/Canvas.purs

@@ -228,23 +228,35 @@ data Composite
    | Xor
 
 instance showComposite :: Show Composite where
-  show SourceOver      = "source-over"
-  show SourceIn        = "source-in"
-  show SourceOut       = "source-out"
-  show SourceAtop      = "source-atop"
-  show DestinationOver = "destination-over"
-  show DestinationIn   = "destination-in"
-  show DestinationOut  = "destination-out"
-  show DestinationAtop = "destination-atop"
-  show Lighter         = "lighter"
-  show Copy            = "copy"
-  show Xor             = "xor"
+  show SourceOver      = "SourceOver"
+  show SourceIn        = "SourceIn"
+  show SourceOut       = "SourceOut"
+  show SourceAtop      = "SourceAtop"
+  show DestinationOver = "DestinationOver"
+  show DestinationIn   = "DestinationIn"
+  show DestinationOut  = "DestinationOut"
+  show DestinationAtop = "DestinationAtop"
+  show Lighter         = "Lighter"
+  show Copy            = "Copy"
+  show Xor             = "Xor"
 
 foreign import setGlobalCompositeOperationImpl :: forall eff. Context2D -> String -> Eff (canvas :: Canvas | eff) Context2D
 
 -- | Set the current composite operation.
 setGlobalCompositeOperation :: forall eff. Context2D -> Composite -> Eff (canvas :: Canvas | eff) Context2D
-setGlobalCompositeOperation ctx composite = setGlobalCompositeOperationImpl ctx (show composite)
+setGlobalCompositeOperation ctx composite = setGlobalCompositeOperationImpl ctx (toString composite)
+  where
+    toString SourceOver      = "source-over"
+    toString SourceIn        = "source-in"
+    toString SourceOut       = "source-out"
+    toString SourceAtop      = "source-atop"
+    toString DestinationOver = "destination-over"
+    toString DestinationIn   = "destination-in"
+    toString DestinationOut  = "destination-out"
+    toString DestinationAtop = "destination-atop"
+    toString Lighter         = "lighter"
+    toString Copy            = "copy"
+    toString Xor             = "xor"
 
 -- | Set the current global alpha level.
 foreign import setGlobalAlpha :: forall eff. Context2D -> Number -> Eff (canvas :: Canvas | eff) Context2D