Fix #11287.
[ghc.git] / testsuite / tests / th / TH_Promoted1Tuple.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module TH_Promoted1Tuple where
4
5 import Language.Haskell.TH
6
7 $(sequence [tySynD (mkName "F") [] (appT (promotedTupleT 1) (conT ''Int))])