X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FstgSyn%2FCoreToStg.lhs;h=6dd0255d605c7bb8aa4f7a514fcf42810085125f;hb=b5a73581d0c03b9d44a77706b5973d74074aa6c1;hp=d11dc7565f327141f99c9a21dc6fafd122a6db22;hpb=60881299e5fbceff0eec48fa58bc0eff24640ba3;p=ghc-hetmet.git

diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs
index d11dc75..6dd0255 100644
--- a/compiler/stgSyn/CoreToStg.lhs
+++ b/compiler/stgSyn/CoreToStg.lhs
@@ -12,7 +12,8 @@ module CoreToStg ( coreToStg, coreExprToStg ) where
 #include "HsVersions.h"
 
 import CoreSyn
-import CoreUtils	( rhsIsStatic, manifestArity, exprType, findDefault )
+import CoreUtils	( rhsIsStatic, exprType, findDefault )
+import CoreArity	( manifestArity )
 import StgSyn
 
 import Type
@@ -523,7 +524,7 @@ coreToStgApp _ f args = do
 	--	   two regardless.
 
 	res_ty = exprType (mkApps (Var f) args)
-	app = case globalIdDetails f of
+	app = case idDetails f of
       		DataConWorkId dc | saturated -> StgConApp dc args'
 	        PrimOpId op  	 -> ASSERT( saturated )
 				    StgOpApp (StgPrimOp op) args' res_ty