path: root/testsuite/tests/rename/should_compile/T6027.hs

{-# LANGUAGE TypeOperators #-}

module T6027 where

data (?) a b = Q a b

infixr 2 ?

test :: Int ? String ? Bool
test = 0 `Q` ("foo" `Q` True)