summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs4
1 files changed, 4 insertions, 0 deletions
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