diff options
Diffstat (limited to 'testsuite/tests/driver')
-rw-r--r-- | testsuite/tests/driver/T7060.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/testsuite/tests/driver/T7060.hs b/testsuite/tests/driver/T7060.hs index 45dac515e4..885a9bc1c7 100644 --- a/testsuite/tests/driver/T7060.hs +++ b/testsuite/tests/driver/T7060.hs @@ -1,4 +1,8 @@ main :: IO () -main = print (3 + 4 :: Int) +main = print (f (3 + 4 :: Int)) -{-# RULES "rule" forall xs . map id xs = xs #-} +f :: Int -> Int +f x = x +{-# NOINLINE [1] f #-} + +{-# RULES "rule" forall x. f x = 8 #-} |