testsuite/tests/driver/T18369.hs


1
2
3
4
5
6
7
8
9
10

module T18369 where

import Unsafe.Coerce
import GHC.Exts (Any)

{-# NOINLINE emptyRecord #-}
emptyRecord :: Any
emptyRecord = unsafeCoerce EmptyElement

data TombStone = EmptyElement