ghc/tests/typecheck/should_fail/tcfail087.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 -- !!! Check that unboxed tuples can't be function arguments
   4 module ShouldFail where
   5
   6 data Ex = Ex (# Int,Int #)
   7
   8 f :: (# Int,Int #) -> Int
   9 f x = error "urk"
  10
  11 g (# x,y #) = x
  12
  13