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

{-# LANGUAGE TemplateHaskell #-}

module Main where

data D = C { f :: () }

$( const mempty f )