+-- The "value_at" function pattern matches on some integers, but
+-- doesn't handle the "otherwise" case, for performance reasons.
+{-# OPTIONS_GHC -Wno-incomplete-patterns #-}
{-# LANGUAGE BangPatterns #-}
-- | The FunctionValues module contains the 'FunctionValues' type and
value_at )
where
-import Prelude hiding ( LT )
+import Prelude(
+ Bool,
+ Double,
+ Eq( (==) ),
+ Fractional( (/) ),
+ Int,
+ Num( (+), (-), (*) ),
+ Ord ( (>=), (<) ),
+ Show,
+ (&&),
+ and,
+ not,
+ return )
import Test.Tasty ( TestTree, testGroup )
import Test.Tasty.HUnit ( Assertion, testCase )
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 )