path: root/testsuite/tests/deriving/should_fail/T15073a.hs

{-# LANGUAGE UnboxedTuples #-}
module T15073a where

class P a where
  p :: a -> (# a #)