From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 6 May 2011 22:37:21 +0000 (-0400)
Subject: Add two missing type signatures.
X-Git-Tag: 0.0.1~333
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=cbbeea229379dddceef60795197ebbe0e924257c;p=spline3.git

Add two missing type signatures.
---

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