Don't complain about UNPACK in -fno-code.
[ghc.git] / testsuite / tests / backpack / should_run / bkprun09.bkp
1 unit a where
2     module A where
3         type T = Int
4         y :: Int
5         y = 4
6
7 unit p where
8     signature A where
9         data T
10         instance Show T
11         y :: T
12     module P where
13         import A
14         data S = S {-# UNPACK #-} !T
15             deriving (Show)
16         x = S y
17
18 unit main where
19     dependency p[A=a:A]
20     module Main where
21         import P
22         main = print x