blob: 01949103139e36228e5735bbff8472e9d8f67dfe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-
This code produces an empty case statement, which
panics the bytecode generator after trac #11155.
-}
module ShouldCompile where
import GHC.TypeLits (Symbol)
import Unsafe.Coerce
instance Read Symbol where
readsPrec = unsafeCoerce (readsPrec :: Int -> ReadS String)
data Bar = TyCon !Symbol deriving (Read)
|
