diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-23 09:15:37 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-07-23 09:15:37 +0100 |
| commit | 9cfb3c6a775c4ace5eaff686d4acd9bced2d267f (patch) | |
| tree | bd94e7624c16021ae6d29d93d214d8e37e4b1a90 /testsuite/tests/driver | |
| parent | 94187d0c0fadff9c57da3f78ffc67c6dd80d9619 (diff) | |
| download | haskell-9cfb3c6a775c4ace5eaff686d4acd9bced2d267f.tar.gz | |
Add some NOINLINE pragmas to satisfy the (correct) "RULE may not fire" warning
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 #-} |