diff options
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs | 4 |
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 | |||
58 | import Data.Binary.Get (runGet) | 59 | import Data.Binary.Get (runGet) |
59 | import Data.Either (isLeft) | 60 | import Data.Either (isLeft) |
60 | import Debug.Trace (traceShowId) | 61 | import Debug.Trace (traceShowId) |
62 | #if MIN_VERSION_base(4,11,0) | ||
63 | import Prelude hiding ((<>)) | ||
64 | #endif | ||
61 | 65 | ||
62 | (~=) :: Double -> Double -> Bool | 66 | (~=) :: Double -> Double -> Bool |
63 | a ~= b = abs (a - b) < 1e-10 | 67 | a ~= b = abs (a - b) < 1e-10 |