From dc3e4d2fb8d3ddc9d018b36e935e28170bfb3ea9 Mon Sep 17 00:00:00 2001 From: rbasso Date: Wed, 8 Jun 2016 13:04:29 +0900 Subject: [PATCH] Add -fno-warn-type-defaults to supress unwanted warnings. Supress "Defaulting the following constraints to type Integer" warning when compiling the test modules with polymorphic solutions. Affected problems: grains hamming leap pascals-triangle scrabble-score sieve sum-of-multiples --- exercises/grains/grains_test.hs | 2 ++ exercises/hamming/hamming_test.hs | 2 ++ exercises/leap/leap_test.hs | 2 ++ exercises/pascals-triangle/pascals-triangle_test.hs | 2 ++ exercises/scrabble-score/scrabble-score_test.hs | 2 ++ exercises/sieve/sieve_test.hs | 4 +++- exercises/sum-of-multiples/sum-of-multiples_test.hs | 2 ++ 7 files changed, 15 insertions(+), 1 deletion(-) diff --git a/exercises/grains/grains_test.hs b/exercises/grains/grains_test.hs index 4e54f7a04..afe15f861 100644 --- a/exercises/grains/grains_test.hs +++ b/exercises/grains/grains_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit (Assertion, (@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import Grains (square, total) diff --git a/exercises/hamming/hamming_test.hs b/exercises/hamming/hamming_test.hs index 54cbedaa7..a24b6e75a 100644 --- a/exercises/hamming/hamming_test.hs +++ b/exercises/hamming/hamming_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit (Assertion, (@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import Hamming (distance) diff --git a/exercises/leap/leap_test.hs b/exercises/leap/leap_test.hs index 029858663..80bffaef0 100644 --- a/exercises/leap/leap_test.hs +++ b/exercises/leap/leap_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit (Assertion, (@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import LeapYear (isLeapYear) diff --git a/exercises/pascals-triangle/pascals-triangle_test.hs b/exercises/pascals-triangle/pascals-triangle_test.hs index c53fdef54..629fa52ae 100644 --- a/exercises/pascals-triangle/pascals-triangle_test.hs +++ b/exercises/pascals-triangle/pascals-triangle_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit (Assertion, (@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import Triangle (row, triangle) diff --git a/exercises/scrabble-score/scrabble-score_test.hs b/exercises/scrabble-score/scrabble-score_test.hs index c37f50394..8a5b3dcd3 100644 --- a/exercises/scrabble-score/scrabble-score_test.hs +++ b/exercises/scrabble-score/scrabble-score_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit ((@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import Scrabble (scoreLetter, scoreWord) diff --git a/exercises/sieve/sieve_test.hs b/exercises/sieve/sieve_test.hs index 730262c5f..e33e403cc 100644 --- a/exercises/sieve/sieve_test.hs +++ b/exercises/sieve/sieve_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit (Assertion, (@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import Sieve (primesUpTo) @@ -37,4 +39,4 @@ sieveTests = , testCase "edge cases" $ do [] @=? primesUpTo 1 [2] @=? primesUpTo 2 - ] \ No newline at end of file + ] diff --git a/exercises/sum-of-multiples/sum-of-multiples_test.hs b/exercises/sum-of-multiples/sum-of-multiples_test.hs index ea714a1fd..774dc7139 100644 --- a/exercises/sum-of-multiples/sum-of-multiples_test.hs +++ b/exercises/sum-of-multiples/sum-of-multiples_test.hs @@ -1,3 +1,5 @@ +{-# OPTIONS_GHC -fno-warn-type-defaults #-} + import Test.HUnit (Assertion, (@=?), runTestTT, Test(..), Counts(..)) import System.Exit (ExitCode(..), exitWith) import SumOfMultiples (sumOfMultiples)