+-- 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 )