Refactor modules

2021-07-25 01:29:43 +02:00
parent e453065afe
commit 84a9badea8
38 changed files with 77 additions and 48 deletions
@@ -83,7 +83,7 @@ boxABC a b c =
    faceNA = rhombus c b

 polyToPics :: Polyhedra -> [Picture]
-polyToPics = map (Poly3D) . _pyFaces
+polyToPics = map Poly3D . _pyFaces

 polysToPic :: [Polyhedra] -> Picture
 polysToPic = pictures . concatMap polyToPics