Testsuite: delete Windows line endings [skip ci] (#11631)
[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