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
@@ -19,10 +19,11 @@ import Geometry

 import Data.Bifunctor
 import Control.Lens
-import qualified Streaming.Prelude as S
+--import qualified Streaming.Prelude as S

 type SPic =  (Shape, Picture)

+shMap :: (ShapeObj -> ShapeObj) -> Shape -> Shape
 shMap = map

 -- should all this be inlined/inlinable?