Commit 66d174a9 authored by Richard Eisenberg's avatar Richard Eisenberg
Browse files

Test #13435 in typecheck/should_run/T13435

parent 3cfee57a
{-# Language FlexibleInstances, TypeFamilies, TypeInType, MagicHash #-}
module Main where
import Data.Kind
import GHC.Exts
class Shw (a :: TYPE rep) where
shw :: a -> String
instance Int# ~ a => Shw (a :: TYPE IntRep) where
shw a = "I#" ++ show (I# a)
main = putStrLn (shw 3#)
......@@ -120,3 +120,4 @@ test('EtaExpandLevPoly', normal, compile_and_run, [''])
test('TestTypeableBinary', normal, compile_and_run, [''])
test('Typeable1', normal, compile_fail, [''])
test('TypeableEq', normal, compile_and_run, [''])
test('T13435', normal, compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment