[commit: ghc] wip/generalized-arrow: Fix T8132 (8833f38)

[git at git.haskell.org]

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

On branch  : wip/generalized-arrow
Link       : http://ghc.haskell.org/trac/ghc/changeset/8833f38d31f6a390cd663cadbcdcdc689a69be84/ghc

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

commit 8833f38d31f6a390cd663cadbcdcdc689a69be84
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Mar 16 23:22:32 2016 +0100

    Fix T8132


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

8833f38d31f6a390cd663cadbcdcdc689a69be84
 testsuite/tests/polykinds/T8132.hs     | 5 +++--
 testsuite/tests/polykinds/T8132.stderr | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/polykinds/T8132.hs b/testsuite/tests/polykinds/T8132.hs
index 337e288..cdbfd7f 100644
--- a/testsuite/tests/polykinds/T8132.hs
+++ b/testsuite/tests/polykinds/T8132.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE MagicHash #-}
-import Data.Typeable.Internal
+import Data.Typeable
 
 data K = K
 
-instance Typeable K where typeRep# _ = undefined
+-- This used to have a RHS but now we hide typeRep#
+instance Typeable K -- where typeRep# _ = undefined
diff --git a/testsuite/tests/polykinds/T8132.stderr b/testsuite/tests/polykinds/T8132.stderr
index 4a1ca2b..b6b60c9 100644
--- a/testsuite/tests/polykinds/T8132.stderr
+++ b/testsuite/tests/polykinds/T8132.stderr
@@ -1,3 +1,3 @@
 
-T8132.hs:6:10: error:
+T8132.hs:7:10: error:
     Class ‘Typeable’ does not support user-specified instances