src/{Cube,FunctionValues}.hs: add explicit Cardinal imports.

diff --git a/src/Cube.hs b/src/Cube.hs
index 5a70afc70b5b4c02a0906e4c42620c7051cfb28e..8596b11846838b91f0b4db3667d130ac4152b7ed 100644 (file)
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -24,7 +24,8 @@ import Test.Tasty.QuickCheck (
   choose,
   testProperty )
 import Cardinal (
   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,
   ccwx,
   ccwy,
   ccwz,

diff --git a/src/FunctionValues.hs b/src/FunctionValues.hs
index 0d84801f3f082532d232e75d40f626018f37f0de..dc1f0d00f6fd7cc4a6bc36fa67b54efd5d2037d7 100644 (file)
--- a/src/FunctionValues.hs
+++ b/src/FunctionValues.hs
@@ -20,7 +20,13 @@ import Test.Tasty.HUnit ( Assertion, testCase )
 import Test.Tasty.QuickCheck ( Arbitrary( arbitrary ), choose, testProperty )
 
 import Assertions ( assertTrue )
 import Test.Tasty.QuickCheck ( Arbitrary( arbitrary ), choose, testProperty )
 
 import Assertions ( assertTrue )

-import Cardinal ( Cardinal(..), cwx, cwy, cwz )
+import Cardinal (
+  Cardinal(F, B, L, R, D, T, FL, FR, FD, FT, BL, BR, BD, BT, LD, LT, RD,
+           RT, FLD, FLT, FRD, FRT, BLD, BLT, BRD, BRT, I, Scalar, Sum,
+           Difference, Product, Quotient ),
+  cwx,
+  cwy,
+  cwz )

 import Examples ( trilinear )
 import Values ( Values3D, dims, idx )
 
 import Examples ( trilinear )
 import Values ( Values3D, dims, idx )