c0c2eb1902a45c917690e07d925d1b2359bc28fc
[ghc.git] / testsuite / tests / typecheck / should_fail / tcfail159.hs
1 {-# LANGUAGE UnboxedTuples #-}
2
3 module ShouldFail where
4
5 h :: Int -> (# Int, Int #)
6 h x = (# x,x #)
7
8 foo x = case h x of
9 ~(# p, q #) -> p