1 2 3 4 5 6
{-# LANGUAGE UnboxedTuples #-} module T9404 where foo _ = case seq () (# #) of (# #) -> () foo2 _ = case () `seq` (# #) of (# #) -> ()