diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T23083.hs')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T23083.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T23083.hs b/testsuite/tests/simplCore/should_compile/T23083.hs new file mode 100644 index 0000000000..1f181217a4 --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T23083.hs @@ -0,0 +1,10 @@ +module T23083 where + +-- Just ($), but NOINLINE so that we don't inline it eagerly, subverting the +-- test case +($$) :: (a -> b) -> a -> b +($$) f x = f x +{-# NOINLINE ($$) #-} + +g :: ((Integer -> Integer) -> Integer) -> (Integer -> Integer) -> Integer +g f h = f (h `seq` (h $$)) |