Add Fixity info for infix types
[ghc.git] / testsuite / tests / th / T1849.script
index 861b8d4..5ae77b9 100644 (file)
@@ -1,6 +1,6 @@
 :set -XTemplateHaskell
 import Language.Haskell.TH
-let seeType n = do VarI _ t _ <- reify n; runIO $ putStrLn $ show t; [| return True |]
+let seeType n = do VarI _ t _ <- reify n; runIO $ putStrLn $ show t; [| return True |]
 let f = undefined :: Int -> Int
 let g = undefined :: [Int]
 let h = undefined :: (Int, Int)