X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=ef19889e626ab3235d195c93e36e2cf299c4a734;hb=97351f5d70e2d5797a092059cb205089d55dacc6;hp=a8c435aed1d706a9f8b59035a04333cb40ac9ac6;hpb=3432f617a78f4a0bed641947179b00f1070a9018;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index a8c435a..ef19889 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -2377,7 +2377,7 @@ skolemiseTy ty = (substTy subst ty, mkVarSet new_tyvars)
 
 skolemiseTyVar :: TyVar -> TyVar
 skolemiseTyVar tyvar = mkTcTyVar (tyVarName tyvar) (tyVarKind tyvar) 
-                                 (SkolemTv UnkSkol)
+                                 (SkolemTv RuntimeUnkSkol)
 
 -----------------------------------------------------------------------------
 -- show a module and it's source/object filenames