testsuite: Assert that testsuite ways are known
[ghc.git] / testsuite / tests / typecheck / should_compile / T9404.hs
1 {-# LANGUAGE UnboxedTuples #-}
2
3 module T9404 where
4
5 foo _ = case seq () (# #) of (# #) -> ()
6 foo2 _ = case () `seq` (# #) of (# #) -> ()