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 ++++++-- packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs | 5 +++-- 2 files changed, 9 insertions(+), 4 deletions(-) (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests') 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 diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs index e3a6242..6cd3a9e 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests/Properties.hs @@ -3,6 +3,8 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE DataKinds #-} +{-# OPTIONS_GHC -fno-warn-missing-signatures #-} + ----------------------------------------------------------------------------- {- | Module : Numeric.LinearAlgebra.Tests.Properties @@ -51,14 +53,13 @@ module Numeric.LinearAlgebra.Tests.Properties ( , staticVectorBinaryFailProp ) where -import Numeric.LinearAlgebra.HMatrix hiding (Testable,unitary) +import Numeric.LinearAlgebra.HMatrix hiding (Testable) import qualified Numeric.LinearAlgebra.Static as Static import Test.QuickCheck import Data.Binary import Data.Binary.Get (runGet) import Data.Either (isLeft) -import Debug.Trace (traceShowId) #if MIN_VERSION_base(4,11,0) import Prelude hiding ((<>)) #endif -- cgit v1.2.3