X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FjavaGen%2FJavaGen.lhs;h=ff0dd9163dd02dc216d5c69145d1a8f40cffa40c;hb=06068983cb9570c217971fbaf9765e48d19c2105;hp=55b2b716c128734d9951dd31d662f22df7c7863c;hpb=b085ee40c7f265a5977ea6ec1c415e573be5ff8c;p=ghc-hetmet.git

diff --git a/ghc/compiler/javaGen/JavaGen.lhs b/ghc/compiler/javaGen/JavaGen.lhs
index 55b2b71..ff0dd91 100644
--- a/ghc/compiler/javaGen/JavaGen.lhs
+++ b/ghc/compiler/javaGen/JavaGen.lhs
@@ -47,7 +47,7 @@ module JavaGen( javaGen ) where
 import Java
 
 import Literal	( Literal(..) )
-import Id	( Id, isDataConId_maybe, isId, idName, isDeadBinder, idPrimRep
+import Id	( Id, isDataConWorkId_maybe, isId, idName, isDeadBinder, idPrimRep
 		, isPrimOpId_maybe )
 import Name	( NamedThing(..), getOccString, isExternalName, isInternalName
 		, nameModule )
@@ -420,7 +420,7 @@ javaApp r (CoreSyn.App f a) as
 	| isValArg a = javaApp r f (a:as)
 	| otherwise  = javaApp r f as
 javaApp r (CoreSyn.Var f) as 
-  = case isDataConId_maybe f of {
+  = case isDataConWorkId_maybe f of {
 	Just dc | as `lengthIs` dataConRepArity dc
 	 -- NOTE: Saturated constructors never returning a primitive at this point
 	 --