path: root/testsuite/tests/ghci/should_fail/T14608.hs

{-# LANGUAGE UnboxedTuples #-}
module T14608 where

data UnboxedTupleData = MkUTD (# (),() #)

doThings :: UnboxedTupleData -> ()
doThings (MkUTD t) = ()