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

{-# LANGUAGE TemplateHaskell #-}
module T5737 where

import Language.Haskell.TH
makeAlpha n = [d| data Alpha = Alpha $(conT n) deriving (Show, Read) |]