Always do the worker/wrapper split for NOINLINEs
[ghc.git] / testsuite / tests / stranal / should_compile / T10069.hs
1 module T10069 where
2
3 data C = C !Int !Int
4
5 {-# NOINLINE c1 #-}
6 c1 :: C -> Int
7 c1 (C _ c) = c
8
9 {-# NOINLINE fc #-}
10 fc :: C -> Int
11 fc c = c1 c + c1 c