Fix #15572 by checking for promoted names in ConT
[ghc.git] / testsuite / tests / th / T15572.hs
1 {-# LANGUAGE DataKinds #-}
2 {-# LANGUAGE TemplateHaskell #-}
3 module T15572 where
4
5 import Language.Haskell.TH
6
7 $([d| type AbsoluteUnit1 = '() |])
8 $(pure [TySynD (mkName "AbsoluteUnit2") [] (ConT '())])