Implement unboxed sum primitive type
[ghc.git] / testsuite / tests / unboxedsums / sum_rr.hs
1 {-# LANGUAGE DataKinds, KindSignatures #-}
2
3 module Example where
4
5 import Data.Typeable
6 import GHC.Exts
7
8 data Wat (a :: TYPE 'UnboxedSumRep) = Wat a