Fold integer-simple.git into ghc.git (re #8545)
[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