spline3.cabal: bump version to 1.0.2

[spline3.git] / src / Face.hs

diff --git a/src/Face.hs b/src/Face.hs
index f4bc1580882e6c8ba9050462948d794dc65a13d2..ce4a5d54403166b34391108e4f48cfda1c77503c 100644 (file)
--- a/src/Face.hs
+++ b/src/Face.hs
@@ -6,7 +6,7 @@ module Face (
   center )
 where
 
-import Point ( Point(..), scale )
+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)