justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Hlint pass

Browse Source
This commit is contained in:
justin
2021-07-12 12:44:43 +02:00
parent 75254cd3e4
commit ac66b4b9d6
8 changed files with 85 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Picture/ToPolyhedra.hs
+1 -1
View File
@@ -7,5 +7,5 @@ toPolyhedra :: Picture -> [[Point3]]
toPolyhedra (OnLayer _ pic) = toPolyhedra pic
toPolyhedra (Pictures pics) = concatMap toPolyhedra pics
toPolyhedra (OverPic f _ pic) = map (map f) $ toPolyhedra pic
toPolyhedra (Poly3D _ vs) = [fst $ unzip vs]
toPolyhedra (Poly3D _ vs) = [map fst vs]
toPolyhedra _ = []