path: root/testsuite/tests/th/T17820e.hs

{-# LANGUAGE TemplateHaskell, TypeFamilies #-}

module Main where

data family F a

data instance F () = C ()

$( const mempty C )