testsuite/tests/simplCore/should_compile/T23307a.hs


1
2
3
4
5
6
7

module T23307a where

data List a = Nil | Cons {-# UNPACK #-} !(Unconsed a)
                    -- This UNPACK should work

data Unconsed a = Unconsed a !(List a)
data MUnconsed a = No | Yes {-# UNPACK #-} !(Unconsed a)