Various cleanups

2021-10-29 18:40:28 +01:00
parent 4480d0f7c7
commit d5d4c93007
8 changed files with 25 additions and 116 deletions
@@ -86,7 +86,7 @@ upperPrismPolyHalf h ps = [ShapeObj (TopPrism n) (f upps downps)]

 colorSH :: Color -> Shape -> Shape
 {-# INLINE colorSH #-}
-colorSH col = overCol $ const col
+colorSH = overCol . const

 overCol :: (Point4 -> Point4) -> Shape -> Shape
 {-# INLINE overCol #-}