blob: 556dcd5d7689f7a9d5cfdd827ce8e4bc178a1cac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# OPTIONS_GHC -O2 -fforce-recomp #-}
{-# LANGUAGE BangPatterns #-}
module T18885b where
force :: (Int, Int) -> (Int, Int)
force p@(!x, !y) = p
{-# NOINLINE force #-}
test :: (Int, Int) -> Int -> (Int, Int)
test p z = case p of
(x, y) | odd z -> force p
| otherwise -> (1, 2)
|