src/Tetrahedron.hs: use explicit FunctionValues(..) imports.

[spline3.git] / src / Tetrahedron.hs

diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs
index 4bc86581bf0491cf7d8a66bfbcf7f019b66aa3b7..87bfd5e8a65b8621179d480bd636a1feeed6854b 100644 (file)
--- a/src/Tetrahedron.hs
+++ b/src/Tetrahedron.hs
@@ -1,3 +1,7 @@
+-- The local "coefficient" function defined within the "c" function
+-- pattern matches on a bunch of integers, but doesn't handle the
+-- "otherwise" case for performance reasons.
+{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
 {-# LANGUAGE BangPatterns #-}
 
 module Tetrahedron (
@@ -26,7 +30,13 @@ import Test.Tasty.QuickCheck (
   testProperty )
 
 import Comparisons ( (~=) )
-import FunctionValues ( FunctionValues(..), empty_values )
+import FunctionValues (
+  FunctionValues( front, back, left, right, top, down, front_left,
+                  front_right, front_down, front_top, back_left, back_right,
+                  back_down, back_top, left_down, left_top, right_down,
+                  right_top, front_left_down, front_left_top,
+                  front_right_down, front_right_top, interior ),
+  empty_values )
 import Misc ( factorial )
 import Point ( Point(Point), scale )
 import RealFunction ( RealFunction, cmult, fexp )