From 163aa51ffa2cb3840cc022f16b167f2aa5eb87a8 Mon Sep 17 00:00:00 2001 From: Daan Rijks Date: Thu, 29 Jun 2017 01:40:01 +0200 Subject: [PATCH] Add an `Eq` instance for `LineCap` --- src/Graphics/Canvas.purs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Graphics/Canvas.purs b/src/Graphics/Canvas.purs index c0f256e..835b9bb 100644 --- a/src/Graphics/Canvas.purs +++ b/src/Graphics/Canvas.purs @@ -226,6 +226,8 @@ foreign import setMiterLimit :: forall eff. Number -> Context2D -> Eff (canvas : -- | Enumerates the different types of line cap. data LineCap = Round | Square | Butt +derive instance eqLineCap :: Eq LineCap + foreign import setLineCapImpl :: forall eff. String -> Context2D -> Eff (canvas :: CANVAS | eff) Context2D -- | Set the current line cap type.