X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;fp=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;h=02258a963158b39b81d2cbb27f61bfa762d58b88;hb=f714e6b642fd614a9971717045ae47c3d871275e;hp=3291c0df4cbe19f521f79e022d933b6ab991608d;hpb=9e90a28e134b8e5af3f6ec9b7300bc41324fea9c;p=ghc-hetmet.git

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index 3291c0d..02258a9 100644
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -18,7 +18,7 @@ import StgSyn
 import Type
 import TyCon		( isAlgTyCon )
 import Id
-import Var		( Var, globalIdDetails, varType )
+import Var		( Var, globalIdDetails, idType )
 import TyCon		( isUnboxedTupleTyCon, isPrimTyCon, isFunTyCon )
 #ifdef ILX
 import MkId		( unsafeCoerceId )
@@ -445,7 +445,7 @@ coreToStgApp maybe_thunk_body f args
             -- Here the free variables are "f", "x" AND the type variable "a"
             -- coreToStgArgs will deal with the arguments recursively
             if opt_RuntimeTypes then
-	      fvs `unionFVInfo` tyvarFVInfo (tyVarsOfType (varType f))
+	      fvs `unionFVInfo` tyvarFVInfo (tyVarsOfType (idType f))
 	    else fvs
 
 	-- Mostly, the arity info of a function is in the fn's IdInfo