Add two missing type signatures.

diff --git a/src/Cube.hs b/src/Cube.hs
index d873a379ddfca39eba80bf7cb3022b258addfacc..53bf10547ccd67297f2ba0f2ff83861090ac681d 100644 (file)
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -280,6 +280,7 @@ tetrahedron5 c =
       v3' = v2 (top_face c)
       fv' = rotate (Tetrahedron.fv (tetrahedron0 c)) ccwx
 
+tetrahedron6 :: Cube -> Tetrahedron
 tetrahedron6 c =
     Tetrahedron fv' v0' v1' v2' v3'
     where
@@ -289,6 +290,7 @@ tetrahedron6 c =
       v3' = v3 (top_face c)
       fv' = rotate (Tetrahedron.fv (tetrahedron0 c)) (ccwx . ccwx)
 
+tetrahedron7 :: Cube -> Tetrahedron
 tetrahedron7 c =
     Tetrahedron fv' v0' v1' v2' v3'
     where