From a38afc1a75456c4c6708dee8973ddde327201b82 Mon Sep 17 00:00:00 2001
From: Jan Bracker <jan.bracker@googlemail.com>
Date: Fri, 23 Aug 2013 10:24:54 +0200
Subject: [PATCH] Also added show instance for FillRuleA

---
 src/Diagrams/TwoD/Path.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Diagrams/TwoD/Path.hs b/src/Diagrams/TwoD/Path.hs
index b58e0ae6..784cfac7 100644
--- a/src/Diagrams/TwoD/Path.hs
+++ b/src/Diagrams/TwoD/Path.hs
@@ -231,7 +231,7 @@ runFillRule Winding = isInsideWinding
 runFillRule EvenOdd = isInsideEvenOdd
 
 newtype FillRuleA = FillRuleA (Last FillRule)
-  deriving (Typeable, Semigroup)
+  deriving (Typeable, Semigroup, Show)
 instance AttributeClass FillRuleA
 
 instance Default FillRuleA where