Don't inline functions with RULES too early
[ghc.git] / testsuite / tests / simplCore / should_compile / T15445a.hs
1 module T15445a where
2
3 {-# SPECIALIZE plusTwoRec :: [Int] -> [Int] #-}
4 plusTwoRec :: Num a => [a] -> [a]
5 plusTwoRec [] = []
6 plusTwoRec (x:xs) = x+2:plusTwoRec xs
7
8 plusTwoRec' :: Num a => [a] -> [a]
9 plusTwoRec' [] = []
10 plusTwoRec' (x:xs) = x+2:plusTwoRec' xs