diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T21261_pedantic.hs')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T21261_pedantic.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T21261_pedantic.hs b/testsuite/tests/simplCore/should_compile/T21261_pedantic.hs deleted file mode 100644 index b63d90558b..0000000000 --- a/testsuite/tests/simplCore/should_compile/T21261_pedantic.hs +++ /dev/null @@ -1,18 +0,0 @@ -{-# OPTIONS_GHC -fpedantic-bottoms #-} -- This flag must inhibit eta reduction based on demands - -module T21261_pedantic where - --- README: See T21261. These examples absolutely should not eta reduce with --- -fpedantic-bottoms. - -f1 :: (Int -> Int -> Int) -> Int -f1 c = c 1 `seq` c 2 3 -{-# NOINLINE f1 #-} -no2 :: (Int -> Int -> Int) -> Int -no2 c = f1 (\x y -> c x y) - -f2 :: (Int -> Int -> Int) -> Maybe Int -f2 c = Just (c 1 `seq` c 3 4) -{-# NOINLINE f2 #-} -no2_lazy :: (Int -> Int -> Int) -> Maybe Int -no2_lazy c = f2 (\x y -> c x y) |