1 2 3 4 5 6 7
{-# OPTIONS_GHC -fno-worker-wrapper #-} module Test where f :: Int -> Int f n = n+1 {-# NOINLINE f #-}