[commit: ghc] master: Suppress warnings when compiling primitive and random (f1fa383)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f1fa3839047925c75278f0a83835478e3aa437da/ghc

>---------------------------------------------------------------

commit f1fa3839047925c75278f0a83835478e3aa437da
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Thu Oct 22 17:50:03 2015 +0200

    Suppress warnings when compiling primitive and random
    
    And fix a redundant constraint warning in a test that requires
    primitive.


>---------------------------------------------------------------

f1fa3839047925c75278f0a83835478e3aa437da
 mk/warnings.mk                                   | 5 +++++
 testsuite/tests/deriving/should_compile/T8138.hs | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/mk/warnings.mk b/mk/warnings.mk
index 7efcf08..9107abc 100644
--- a/mk/warnings.mk
+++ b/mk/warnings.mk
@@ -79,6 +79,11 @@ libraries/pretty_dist-install_EXTRA_HC_OPTS += -Wno-unused-imports
 
 # primitive has a warning about deprecated use of GHC.IOBase
 libraries/primitive_dist-install_EXTRA_HC_OPTS += -Wno-unused-imports
+# primitive uses deprecated Control.Monad.Trans.Error
+libraries/primitive_dist-install_EXTRA_HC_OPTS += -Wno-deprecations
+
+# See https://github.com/haskell/random/pull/20
+libraries/random_dist-install_EXTRA_HC_OPTS += -Wno-redundant-constraints
 
 # temporarily turn off unused-imports warnings for terminfo
 libraries/terminfo_dist-boot_EXTRA_HC_OPTS += -fno-warn-unused-imports
diff --git a/testsuite/tests/deriving/should_compile/T8138.hs b/testsuite/tests/deriving/should_compile/T8138.hs
index 2e7e47b..e6d9781 100644
--- a/testsuite/tests/deriving/should_compile/T8138.hs
+++ b/testsuite/tests/deriving/should_compile/T8138.hs
@@ -22,7 +22,7 @@ mutableByteArrayFromList xs = do
     loop arr 0 xs
     return arr
   where
-    loop :: (Prim a) => MutableByteArray s -> Int -> [a] -> ST s ()
+    loop :: MutableByteArray s -> Int -> [a] -> ST s ()
     loop _ _ [] = return ()
 
     loop arr i (x : xs) = do