Move main to allow for new executables

src/Polyhedra.hs

@@ -15,7 +15,7 @@ import Control.Lens
 translateXY :: Float -> Float -> Polyhedra -> Polyhedra
 translateXY x y = pyFaces %~ map (map $ first tran)
   where
-    tran (V3 a b c) = (V3 (a+x) (b+y) (c))
+    tran (V3 a b c) = V3 (a+x) (b+y) c
 
 rotateXY :: Float -> Polyhedra -> Polyhedra
 rotateXY a = over pyFaces $ map $ map $ first $ rotate3 a
@@ -49,7 +49,7 @@ faceEdges xs = zipWith addNormal xs (tail xs ++ [head xs])
 
 rhombus :: Point3 -> Point3 -> [Point3]
 rhombus a b = 
-    [(V3 0 0 0)
+    [V3 0 0 0
     ,a
     ,a +.+.+ b
     ,b
@@ -58,11 +58,11 @@ rhombus a b =
 boxXYZ :: Float -> Float -> Float -> [[Point3]]
 boxXYZ x y z = 
     [ bottomFace
-    , map (+.+.+ (V3 0 0 z)) $ reverse bottomFace
+    , map (+.+.+ V3 0 0 z) $ reverse bottomFace
     , frontFace
-    , map (+.+.+ (V3 0 y 0)) $ reverse frontFace
+    , map (+.+.+ V3 0 y 0) $ reverse frontFace
     , sideFace
-    , map (+.+.+ (V3 x 0 0)) $ reverse sideFace
+    , map (+.+.+ V3 x 0 0) $ reverse sideFace
     ]
   where
     bottomFace = rhombus (V3 0 y 0) (V3 x 0 0)