X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=552b141e2a2f597ce7669baa9e181259e2979a96;hb=fe1984d347cee4262a3af2117fd402bb603fd0ce;hp=5a70afc70b5b4c02a0906e4c42620c7051cfb28e;hpb=2afb3f225800f5e7a27c9368b1391a0e16f206d6;p=spline3.git

diff --git a/src/Cube.hs b/src/Cube.hs
index 5a70afc..552b141 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -1,3 +1,8 @@
+-- The "tetrahedron" function pattern matches on the integers zero
+-- through twenty-three, but doesn't handle the "otherwise" case, for
+-- performance reasons.
+{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
+
 module Cube (
   Cube(..),
   cube_properties,
@@ -24,7 +29,8 @@ import Test.Tasty.QuickCheck (
   choose,
   testProperty )
 import Cardinal (
-  Cardinal(..),
+  Cardinal(F, B, L, R, D, T, FL, FR, FD, FT,
+           BL, BR, BD, BT, LD, LT, RD, RT, I),
   ccwx,
   ccwy,
   ccwz,