diff options
Diffstat (limited to 'ghc/compiler/javaGen/JavaGen.lhs')
| -rw-r--r-- | ghc/compiler/javaGen/JavaGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/javaGen/JavaGen.lhs b/ghc/compiler/javaGen/JavaGen.lhs index b6fbc36811..e46a1c64e7 100644 --- a/ghc/compiler/javaGen/JavaGen.lhs +++ b/ghc/compiler/javaGen/JavaGen.lhs @@ -52,7 +52,7 @@ import Id ( Id, isDataConId_maybe, isId, idName, isDeadBinder, idPrimRep import Name ( NamedThing(..), getOccString, isExternalName, isInternalName , nameModule ) import PrimRep ( PrimRep(..) ) -import DataCon ( DataCon, dataConRepArity, dataConRepArgTys, dataConId ) +import DataCon ( DataCon, dataConRepArity, dataConRepArgTys, dataConWorkId ) import qualified Type import qualified CoreSyn import CoreSyn ( CoreBind, CoreExpr, CoreAlt, CoreBndr, @@ -755,7 +755,7 @@ shortName = reverse . takeWhile (/= '.') . reverse -- would return the name "Test.Foo". javaConstrWkrName :: DataCon -> TypeName -javaConstrWkrName = javaIdTypeName . dataConId +javaConstrWkrName = javaIdTypeName . dataConWorkId -- Makes x_inst for Rec decls -- They are *never* is primitive |