Add Fixity info for infix types
[ghc.git] / testsuite / tests / th / T2222.hs
index bba9231..7b5be78 100644 (file)
@@ -9,7 +9,7 @@ a = 1
 
 $(return [])
 
-b = $(do VarI _ t _ <- reify 'a
+b = $(do VarI _ t _ <- reify 'a
          runIO $ putStrLn ("inside b: " ++ pprint t)
          [| undefined |]) 
 
@@ -17,11 +17,11 @@ c = $([| True |])
 
 $(return [])
 
-d = $(do VarI _ t _ <- reify 'c
+d = $(do VarI _ t _ <- reify 'c
          runIO $ putStrLn ("inside d: " ++ pprint t)
          [| undefined |] )
 
-$(do VarI _ t _ <- reify 'c
+$(do VarI _ t _ <- reify 'c
      runIO $ putStrLn ("type of c: " ++ pprint t)
      return [] )
 
@@ -29,11 +29,11 @@ e = $([| True |])
 
 $(return [])
 
-f = $(do VarI _ t _ <- reify 'e
+f = $(do VarI _ t _ <- reify 'e
          runIO $ putStrLn ("inside f: " ++ pprint t)
          [| undefined |] )
 
-$(do VarI _ t _ <- reify 'e
+$(do VarI _ t _ <- reify 'e
      runIO $ putStrLn ("type of e: " ++ pprint t)
      return [] )