Fix #11287.
[ghc.git] / testsuite / tests / th / TH_unresolvedInfix2.hs
1 module TH_unresolvedInfix2 where
2
3 import Language.Haskell.TH
4
5 infixl 6 :+
6
7 data Tree = N
8 | Tree :+ Tree
9 | Tree :* Tree
10
11 $(return [])
12
13 -- Should fail
14 expr = $( let plus = conE '(:+)
15 n = conE 'N
16 in infixE Nothing plus (Just $ uInfixE n plus n) )