Commit before attempting to remove ptDraw field

2022-07-10 10:49:49 +01:00
parent 2a70dcc9a6
commit 8202d12b6a
8 changed files with 59 additions and 28 deletions
@@ -21,12 +21,14 @@ module Shape
 import Geometry
 import Shape.Data
 import Color
-import qualified Streaming.Prelude as S
+--import qualified Streaming.Prelude as S

 singleShape :: ShapeObj -> Shape
 {-# INLINE singleShape #-}
 singleShape = (:[])

+shMap :: (ShapeObj -> ShapeObj) -> Shape -> Shape
+{-# INLINE shMap #-}
 shMap = map

 emptySH :: Shape