[project @ 2004-11-18 09:56:07 by tharris]

[ghc-hetmet.git] / ghc / utils / genprimopcode / Main.hs

diff --git a/ghc/utils/genprimopcode/Main.hs b/ghc/utils/genprimopcode/Main.hs
index e486403..cc29e6d 100644 (file)
--- a/ghc/utils/genprimopcode/Main.hs
+++ b/ghc/utils/genprimopcode/Main.hs
@@ -411,6 +411,8 @@ ppType (TyApp "StableName#"  [x])      = "mkStableNamePrimTy " ++ ppType x
 
 ppType (TyApp "MVar#" [x,y])     = "mkMVarPrimTy " ++ ppType x 
                                    ++ " " ++ ppType y
+ppType (TyApp "TVar#" [x,y])     = "mkTVarPrimTy " ++ ppType x 
+                                   ++ " " ++ ppType y
 ppType (TyUTup ts)               = "(mkTupleTy Unboxed " ++ show (length ts)
                                    ++ " "
                                    ++ listify (map ppType ts) ++ ")"