X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FstgSyn%2FCoreToStg.lhs;fp=compiler%2FstgSyn%2FCoreToStg.lhs;h=d8c63b6cb71c7b1acff1776e22b5e3c3f35a177d;hp=d11dc7565f327141f99c9a21dc6fafd122a6db22;hb=9ffadf219cbc4f8ec57264786df936a3cee88aec;hpb=24a5fdb5fe20290cbb9b58b2901e8d2fd651d3f3

diff --git a/compiler/stgSyn/CoreToStg.lhs b/compiler/stgSyn/CoreToStg.lhs
index d11dc75..d8c63b6 100644
--- a/compiler/stgSyn/CoreToStg.lhs
+++ b/compiler/stgSyn/CoreToStg.lhs
@@ -523,7 +523,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