projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-03-08 13:35:35 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
javaGen
/
JavaGen.lhs
diff --git
a/ghc/compiler/javaGen/JavaGen.lhs
b/ghc/compiler/javaGen/JavaGen.lhs
index
55b2b71
..
ff0dd91
100644
(file)
--- 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 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 )
, 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
| 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
--
Just dc | as `lengthIs` dataConRepArity dc
-- NOTE: Saturated constructors never returning a primitive at this point
--