Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / T5366.hs
1 module T5366 where
2
3 newtype Id a = Id Int
4 data Foo = Foo {-# UNPACK #-} !(Id Foo) String
5 data Bar = Bar {-# UNPACK #-} !Foo
6
7 f :: Bar -> Int
8 f (Bar (Foo (Id x) _)) = x