X-Git-Url: https://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FCube.hs;fp=src%2FCube.hs;h=8596b11846838b91f0b4db3667d130ac4152b7ed;hp=5a70afc70b5b4c02a0906e4c42620c7051cfb28e;hb=83ef0aaeae074756e4ee90d72d3e27e74e136061;hpb=6cc5300fea6115c324a0f16d33d8717200076d26

diff --git a/src/Cube.hs b/src/Cube.hs
index 5a70afc..8596b11 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -24,7 +24,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,