From 80e88bbb1fef8b904e5e01d3ca6cc35a97339cda Mon Sep 17 00:00:00 2001 From: Sidharth Kapur Date: Sun, 13 Mar 2016 17:28:58 -0500 Subject: Small change to test code --- packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'packages/tests/src/Numeric') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs index 3211877..37f7da2 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs @@ -56,11 +56,9 @@ instance KnownNat n => Arbitrary (Static.R n) where l <- vector n return (Static.fromList l) - where proxy :: Proxy n - proxy = proxy - - n :: Int - n = fromIntegral (natVal proxy) + where + n :: Int + n = fromIntegral (natVal (Proxy :: Proxy n)) shrink v = [] -- cgit v1.2.3