Reify CrGroupUpdate

2022-07-23 13:57:03 +01:00
parent d8b1a0c71e
commit f4808676e2
6 changed files with 35 additions and 9 deletions
@@ -23,6 +23,7 @@ data ConvexPoly = ConvexPoly
    , _cpCen    :: Point2
    , _cpRad    :: Float
    }
+  deriving (Eq,Ord,Show,Read)
 pointsToPoly :: [Point2] -> ConvexPoly
 pointsToPoly xs = ConvexPoly
    { _cpPoints = xs