X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FFace.hs;h=ce4a5d54403166b34391108e4f48cfda1c77503c;hb=HEAD;hp=785acafef9bfdc92b4eea5ef1cfa4b0f3deea870;hpb=5f01596d42cca3ec2b8236d697adb468cfcdb055;p=spline3.git

diff --git a/src/Face.hs b/src/Face.hs
index 785acaf..ce4a5d5 100644
--- a/src/Face.hs
+++ b/src/Face.hs
@@ -1,12 +1,12 @@
 -- | The Face module just contains the definition of the 'Face' data
 --   type and its two typeclass instances.
+--
 module Face (
   Face(..),
-  center
-  )
+  center )
 where
 
-import Point
+import Point ( Point, scale )
 
 data Face = Face { v0 :: !Point,
                    v1 :: !Point,
@@ -28,4 +28,4 @@ instance Show Face where
 --   tetrahedron.
 center :: Face -> Point
 center (Face v0' v1' v2' v3') =
-  (v0' + v1' + v2' + v3') `scale` (1/4)
+  (v0' + v1' + v2' + v3') `scale` (1 / 4)