[commit: ghc] ghc-8.0: Revert "Add test for #11473" (a31bc44)

git at git.haskell.org git at git.haskell.org
Wed Mar 23 16:37:38 UTC 2016


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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/a31bc446f0a72b3f81074979d9c19c6437ca84e7/ghc

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

commit a31bc446f0a72b3f81074979d9c19c6437ca84e7
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Mar 18 16:49:13 2016 +0100

    Revert "Add test for #11473"
    
    This reverts commit 89bdac7635e6ed08927d760aa885d3e7ef3edb81 as
    this test is duplicated with dependent/should_fail/T11473, added by
    aade111248dce0834ed83dc4f18c234967b3202.
    
    (cherry picked from commit c0f628dc6f604028acc665e5b37019750a30c852)


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

a31bc446f0a72b3f81074979d9c19c6437ca84e7
 testsuite/tests/typecheck/should_fail/T11473.hs | 20 --------------------
 testsuite/tests/typecheck/should_fail/all.T     |  1 -
 2 files changed, 21 deletions(-)

diff --git a/testsuite/tests/typecheck/should_fail/T11473.hs b/testsuite/tests/typecheck/should_fail/T11473.hs
deleted file mode 100644
index cb9f791..0000000
--- a/testsuite/tests/typecheck/should_fail/T11473.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-{-# LANGUAGE PolyKinds, TypeFamilies, MagicHash, DataKinds, TypeInType, RankNTypes #-}
-
-module T11473 where
-import GHC.Exts
-import GHC.Types
-
-type family Boxed (a :: k) :: *
-type instance Boxed Char# = Char
-type instance Boxed Char  = Char
-
-class BoxIt (a :: TYPE lev) where
-    boxed :: a -> Boxed a
-
-instance BoxIt Char# where boxed x = C# x
-instance BoxIt Char  where boxed = id
-
--- This should be an error: there is no way we can produce code for both Lifted
--- and Unlifted levities
-hello :: forall (lev :: Levity). forall (a :: TYPE lev). BoxIt a => a -> Boxed a
-hello x = boxed x
diff --git a/testsuite/tests/typecheck/should_fail/all.T b/testsuite/tests/typecheck/should_fail/all.T
index 1dcc2fb..b58b175 100644
--- a/testsuite/tests/typecheck/should_fail/all.T
+++ b/testsuite/tests/typecheck/should_fail/all.T
@@ -405,6 +405,5 @@ test('T11347', normal, compile_fail, [''])
 test('T11356', normal, compile_fail, [''])
 test('T11355', normal, compile_fail, [''])
 test('T11464', normal, compile_fail, [''])
-test('T11473', expect_broken(11473), compile_fail, [''])
 test('T11563', normal, compile_fail, [''])
 test('T11313', normal, compile_fail, [''])



More information about the ghc-commits mailing list