summaryrefslogtreecommitdiff
path: root/packages/tests
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs4
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs6
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs4
3 files changed, 12 insertions, 2 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index 6d54f4d..2aefc87 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -39,7 +39,11 @@ import Numeric.LinearAlgebra.Tests.Properties
39import Test.HUnit hiding ((~:),test,Testable,State) 39import Test.HUnit hiding ((~:),test,Testable,State)
40import System.Info 40import System.Info
41import Data.List(foldl1') 41import Data.List(foldl1')
42#if MIN_VERSION_base(4,11,0)
43import Prelude hiding ((^),(<>))
44#else
42import Prelude hiding ((^)) 45import Prelude hiding ((^))
46#endif
43import qualified Prelude 47import qualified Prelude
44import System.CPUTime 48import System.CPUTime
45import System.Exit 49import System.Exit
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
index 37f7da2..f0bddd0 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -1,4 +1,4 @@
1{-# LANGUAGE FlexibleContexts, UndecidableInstances, FlexibleInstances, ScopedTypeVariables #-} 1{-# LANGUAGE CPP, FlexibleContexts, UndecidableInstances, FlexibleInstances, ScopedTypeVariables #-}
2----------------------------------------------------------------------------- 2-----------------------------------------------------------------------------
3{- | 3{- |
4Module : Numeric.LinearAlgebra.Tests.Instances 4Module : Numeric.LinearAlgebra.Tests.Instances
@@ -32,7 +32,9 @@ import Test.QuickCheck(Arbitrary,arbitrary,choose,vector,sized,shrink)
32import GHC.TypeLits 32import GHC.TypeLits
33import Data.Proxy (Proxy(..)) 33import Data.Proxy (Proxy(..))
34import qualified Numeric.LinearAlgebra.Static as Static 34import qualified Numeric.LinearAlgebra.Static as Static
35 35#if MIN_VERSION_base(4,11,0)
36import Prelude hiding ((<>))
37#endif
36 38
37shrinkListElementwise :: (Arbitrary a) => [a] -> [[a]] 39shrinkListElementwise :: (Arbitrary a) => [a] -> [[a]]
38shrinkListElementwise [] = [] 40shrinkListElementwise [] = []
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
index 0de9f37..e3a6242 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -1,3 +1,4 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE FlexibleContexts #-} 2{-# LANGUAGE FlexibleContexts #-}
2{-# LANGUAGE TypeFamilies #-} 3{-# LANGUAGE TypeFamilies #-}
3{-# LANGUAGE DataKinds #-} 4{-# LANGUAGE DataKinds #-}
@@ -58,6 +59,9 @@ import Data.Binary
58import Data.Binary.Get (runGet) 59import Data.Binary.Get (runGet)
59import Data.Either (isLeft) 60import Data.Either (isLeft)
60import Debug.Trace (traceShowId) 61import Debug.Trace (traceShowId)
62#if MIN_VERSION_base(4,11,0)
63import Prelude hiding ((<>))
64#endif
61 65
62(~=) :: Double -> Double -> Bool 66(~=) :: Double -> Double -> Bool
63a ~= b = abs (a - b) < 1e-10 67a ~= b = abs (a - b) < 1e-10