Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / T6082-RULE.hs
1 module T6082_RULE where
2
3 -- Should warn
4 foo1 x = x
5 {-# RULES "foo1" forall x. foo1 x = x #-}
6
7 -- Should warn
8 foo2 x = x
9 {-# INLINE foo2 #-}
10 {-# RULES "foo2" forall x. foo2 x = x #-}
11
12 -- Should not warn
13 foo3 x = x
14 {-# NOINLINE foo3 #-}
15 {-# RULES "foo3" forall x. foo3 x = x #-}
16