Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / T7162.hs
1 import Data.Char
2
3 {-# RULES "map-loop" [~] forall f . map' f = map' (id . f) #-}
4
5 {-# NOINLINE map' #-}
6 map' f [] = []
7 map' f (x:xs) = f x : map' f xs
8
9 main = print (map' toUpper "Hello, World")