testsuite/tests/simplCore/should_run/T14894.hs


1
2
3
4
5
6
7
8
9

{-# OPTIONS_GHC -g1 -O #-}
import System.Environment
summap :: (Int -> Int) -> (Int -> Int)
summap f n = f 10
{-# NOINLINE summap #-}

main = do
  n <- length `fmap` getArgs
  print $ summap (+ n) n