Embrace -XTypeInType, add -XStarIsType
[ghc.git] / testsuite / tests / simplCore / should_run / T14894.hs
1 {-# OPTIONS_GHC -g1 -O #-}
2 import System.Environment
3 summap :: (Int -> Int) -> (Int -> Int)
4 summap f n = f 10
5 {-# NOINLINE summap #-}
6
7 main = do
8 n <- length `fmap` getArgs
9 print $ summap (+ n) n