From 1a68793247b8845cefad4d157e4f4d25b1731b42 Mon Sep 17 00:00:00 2001 From: Dominic Steinitz Date: Fri, 30 Mar 2018 12:48:20 +0100 Subject: Implement CI --- packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests/Instances.hs') 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 @@ {-# LANGUAGE CPP, FlexibleContexts, UndecidableInstances, FlexibleInstances, ScopedTypeVariables #-} + +{-# OPTIONS_GHC -fno-warn-orphans #-} +{-# OPTIONS_GHC -fno-warn-missing-signatures #-} + ----------------------------------------------------------------------------- {- | Module : Numeric.LinearAlgebra.Tests.Instances @@ -62,7 +66,7 @@ instance KnownNat n => Arbitrary (Static.R n) where n :: Int n = fromIntegral (natVal (Proxy :: Proxy n)) - shrink v = [] + shrink _v = [] instance (Element a, Arbitrary a) => Arbitrary (Matrix a) where arbitrary = do @@ -89,7 +93,7 @@ instance (KnownNat n, KnownNat m) => Arbitrary (Static.L m n) where n :: Int n = fromIntegral (natVal (Proxy :: Proxy n)) - shrink mat = [] + shrink _mat = [] -- a square matrix newtype (Sq a) = Sq (Matrix a) deriving Show -- cgit v1.2.3