First commit on new machine, some hlinting

2025-12-21 18:43:52 +00:00
parent eac80d2b43
commit 2fbaa47c0b
7 changed files with 14 additions and 11 deletions
@@ -128,7 +128,7 @@ helpPoly3D = picFormat . map f . polyToTris
    f (pos,col) = Verx pos col [] minBound PolyShad

 polysToPic :: [Polyhedra] -> Picture
-polysToPic = fold . concatMap polyToPics
+polysToPic = foldMap (fold . polyToPics)

 polyToEdges :: Polyhedra -> [(Point3,Point3,Point3,Point3)]
 polyToEdges = map denormalEdges . constructEdges . map (map fst) . _pyFaces