From cbbeea229379dddceef60795197ebbe0e924257c Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 6 May 2011 18:37:21 -0400
Subject: [PATCH] Add two missing type signatures.

---
 src/Cube.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Cube.hs b/src/Cube.hs
index d873a37..53bf105 100644
--- 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
-- 
2.43.2