Add Fixity info for infix types
[ghc.git] / testsuite / tests / th / T1849.script
1 :set -XTemplateHaskell
2 import Language.Haskell.TH
3 let seeType n = do VarI _ t _ <- reify n; runIO $ putStrLn $ show t; [| return True |]
4 let f = undefined :: Int -> Int
5 let g = undefined :: [Int]
6 let h = undefined :: (Int, Int)
7 $(seeType (mkName "f"))
8 $(seeType (mkName "g"))
9 $(seeType (mkName "h"))
10