Some linting

src/Polyhedra/Data.hs

@@ -10,7 +10,7 @@ import qualified Data.Map as M
 -- | Polyhedra are represented as a list of faces.
 -- Each face is a list of points (and colours) that are assumed to lie on a plane, and be
 -- ordered to form an anticlockwise convex polygon within that plane.
-data Polyhedra = Polyhedron
+newtype Polyhedra = Polyhedron
     { _pyFaces :: [[(Point3,Point4)]]
     }
 
@@ -19,7 +19,7 @@ data Polyhedra = Polyhedron
 -- The vertices of the faces are assumed to start with a point adjacent to the
 -- key vertex and to be listed anticlockwise around the center of the face.
 -- The key vertex is not included in the list.
-data VF a = VF
+newtype VF a = VF
     { _vertices :: M.Map a (Point3, [[a]])
     }