testsuite/tests/th/T21723.hs


1
2
3
4
5
6
7
8

module Main where

import Language.Haskell.TH

main :: IO ()
main = do
    putStrLn $ pprint (InfixT (ArrowT `AppT` StarT `AppT` StarT) (mkName ":>:") StarT)
    putStrLn $ pprint (InfixT (ParensT $ ArrowT `AppT` StarT `AppT` StarT) (mkName ":>:") StarT)