fix for compiling the base package with --make

[ghc-hetmet.git] / ghc / compiler / javaGen / Java.lhs

diff --git a/ghc/compiler/javaGen/Java.lhs b/ghc/compiler/javaGen/Java.lhs
index de16154..368be03 100644 (file)
--- a/ghc/compiler/javaGen/Java.lhs
+++ b/ghc/compiler/javaGen/Java.lhs
@@ -112,8 +112,8 @@ data Name        = Name String Type
                                -- to store an access to this thing.
                                -- So variables might be Int or Object.
 
-                               -- ** method calls store the returned
-                               -- ** type, not a complete arg x result type.
+                               --  ** method calls store the returned
+                               --  ** type, not a complete arg x result type.
                                --
                                -- Thinking:
                                -- ... foo1.foo2(...).foo3 ...
@@ -131,7 +131,7 @@ instance Ord Name where
 
 data Lit
   = IntLit Integer     -- unboxed
-  | CharLit Char       -- unboxed
+  | CharLit Int        -- unboxed
   | StringLit String   -- java string
   deriving Show