Turn shapeObject's vertices into a stream

2022-06-27 17:47:03 +01:00
parent 8d5800d806
commit 673e9b11fc
7 changed files with 47 additions and 38 deletions
@@ -12,5 +12,5 @@ data ForegroundShape = ForegroundShape
    , _fsRad :: Float  -- This should probably be a bounding box
    , _fsSPic :: SPic
    }
-  deriving (Eq,Show,Ord)
+  deriving ()
 makeLenses ''ForegroundShape