Fix #11287.
[ghc.git] / testsuite / tests / th / TH_mkName.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 -- Test name quoting and splicing, for built-in syntax
4
5 module TH_mkName where
6
7 import Language.Haskell.TH
8
9 x1 = $( return (ConE '()))
10 x2 = $( return (ConE '(,)))
11 x3 = $( return (ConE '[]))
12 x4 = $( return (ConE '(:)))
13 x5 = $( return (ConE 'Just))
14
15 y1 = $( return (ConE (mkName "()")))
16 y2 = $( return (ConE (mkName "(,)")))
17 y3 = $( return (ConE (mkName "[]")))
18 y4 = $( return (ConE (mkName ":")))
19 y5 = $( return (ConE (mkName "Just")))
20