Commit c7a5730b authored by afarmer's avatar afarmer Committed by ian@well-typed.com

Test for #7162: RULES that never fire automatically

parent 31e246df
import Data.Char
{-# RULES "map-loop" [~] forall f . map' f = map' (id . f) #-}
{-# NOINLINE map' #-}
map' f [] = []
map' f (x:xs) = f x : map' f xs
main = print (map' toUpper "Hello, World")
......@@ -35,6 +35,7 @@ test('spec003', normal, compile, [''])
test('rule1', normal, compile, [''])
test('rule2', only_ways(['optasm']), compile, ['-dsuppress-uniques'])
test('T7162', normal, compile, [''])
test('dfun-loop', normal, compile, [''])
test('strict-float', normal, compile, [''])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment