Various refactoring

src/Polyhedra.hs

@@ -11,6 +11,7 @@ import Data.Maybe
 import Data.List
 import Data.Bifunctor
 import Control.Lens
+--import qualified Data.Vector.Fusion.Stream.Monadic as VS
 
 translateXY :: Float -> Float -> Polyhedra -> Polyhedra
 translateXY x y = pyFaces %~ map (map $ first tran)
@@ -100,7 +101,7 @@ boxABC a b c =
 polyToPics :: Polyhedra -> [Picture]
 polyToPics = map helpPoly3D . _pyFaces
 
-helpPoly3D :: [(Point3, Point4)] -> [Verx]
+helpPoly3D :: [(Point3, Point4)] -> Picture
 --{-# INLINE helpPoly3D #-}
 helpPoly3D vs = map f $ polyToTris vs
   where