blob: 17a0e733678c7033a78629b546ed2e90263a9add (
plain)
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)
|