diff options
author | Dominic Steinitz <dominic@steinitz.org> | 2018-04-03 07:41:34 +0100 |
---|---|---|
committer | Dominic Steinitz <dominic@steinitz.org> | 2018-04-03 07:41:34 +0100 |
commit | 62d745b157313909c275a00cdb0226741678031b (patch) | |
tree | e3ff2d556ce9c0b653d25879a1336ca5ed1ced2a /packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | |
parent | 617625917faa0d8ab514de2b4f0a178e66dfbf1d (diff) | |
parent | 6c120cf8c1271da8c39926b47384ac1b117e7c96 (diff) |
Merge branch 'master' into sundials-clean
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs')
-rw-r--r-- | packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs index f0bddd0..59230e0 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | |||
@@ -1,4 +1,8 @@ | |||
1 | {-# LANGUAGE CPP, FlexibleContexts, UndecidableInstances, FlexibleInstances, ScopedTypeVariables #-} | 1 | {-# LANGUAGE CPP, FlexibleContexts, UndecidableInstances, FlexibleInstances, ScopedTypeVariables #-} |
2 | |||
3 | {-# OPTIONS_GHC -fno-warn-orphans #-} | ||
4 | {-# OPTIONS_GHC -fno-warn-missing-signatures #-} | ||
5 | |||
2 | ----------------------------------------------------------------------------- | 6 | ----------------------------------------------------------------------------- |
3 | {- | | 7 | {- | |
4 | Module : Numeric.LinearAlgebra.Tests.Instances | 8 | Module : Numeric.LinearAlgebra.Tests.Instances |
@@ -62,7 +66,7 @@ instance KnownNat n => Arbitrary (Static.R n) where | |||
62 | n :: Int | 66 | n :: Int |
63 | n = fromIntegral (natVal (Proxy :: Proxy n)) | 67 | n = fromIntegral (natVal (Proxy :: Proxy n)) |
64 | 68 | ||
65 | shrink v = [] | 69 | shrink _v = [] |
66 | 70 | ||
67 | instance (Element a, Arbitrary a) => Arbitrary (Matrix a) where | 71 | instance (Element a, Arbitrary a) => Arbitrary (Matrix a) where |
68 | arbitrary = do | 72 | arbitrary = do |
@@ -89,7 +93,7 @@ instance (KnownNat n, KnownNat m) => Arbitrary (Static.L m n) where | |||
89 | n :: Int | 93 | n :: Int |
90 | n = fromIntegral (natVal (Proxy :: Proxy n)) | 94 | n = fromIntegral (natVal (Proxy :: Proxy n)) |
91 | 95 | ||
92 | shrink mat = [] | 96 | shrink _mat = [] |
93 | 97 | ||
94 | -- a square matrix | 98 | -- a square matrix |
95 | newtype (Sq a) = Sq (Matrix a) deriving Show | 99 | newtype (Sq a) = Sq (Matrix a) deriving Show |