X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=3f1669b619a5cbbb0ee262bd6b5f63b4c4a24355;hb=c954154b379c5bd444d527298c33142fb150711b;hp=6263d2e32a331ffe971b61ba78eed466fd71c04d;hpb=6c6ca17ba52b570cc50c1a9546ee9b6a5d3266fd;p=spline3.git

diff --git a/src/Cube.hs b/src/Cube.hs
index 6263d2e..3f1669b 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -283,7 +283,7 @@ tetrahedron8 c =
       v1' = center (back_face c)
       v2' = Face.v0 (back_face c)
       v3' = Face.v1 (back_face c)
-      fv' = rotate cwy $ rotate cwy $ (Tetrahedron.fv (tetrahedron0 c))
+      fv' = rotate cwy $ rotate cwy $ Tetrahedron.fv (tetrahedron0 c)
 
 tetrahedron9 :: Cube -> Tetrahedron
 tetrahedron9 c =