Fold integer-simple.git into ghc.git (re #8545)
[ghc.git] / testsuite / tests / perf / should_run / T3738a.hs
1
2 module T3738a where
3
4 {-# INLINE foo #-}
5 foo :: Num a => a -> [a]
6 foo x = map (+ 1) (repeat x)