Fix #11287.
[ghc.git] / testsuite / tests / th / T9066.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module T9066 where
4
5 $([d| data Blargh = (:<=>) Int Int
6 infix 4 :<=>
7
8 type Foo a b = Either a b
9 infix 5 `Foo`
10 |])