Improve scope zooming

2022-06-05 00:19:44 +01:00
parent 512bc4c1ab
commit 8e73203db3
9 changed files with 41 additions and 77 deletions
@@ -129,7 +129,7 @@ overColObj f (ShapeObj st vs) = ShapeObj st (map (overColVertex f) vs)

 overColObjM :: Monad m => (Point4 -> m Point4) -> ShapeObj -> m ShapeObj
 {-# INLINE overColObjM #-}
-overColObjM f (ShapeObj st vs) = ShapeObj st <$> (mapM (svCol f) vs)
+overColObjM f (ShapeObj st vs) = ShapeObj st <$> mapM (svCol f) vs

 overColVertex :: (Point4 -> Point4) -> ShapeV -> ShapeV
 {-# INLINE overColVertex #-}