diff options
Diffstat (limited to 'ghc/compiler/javaGen/Java.lhs')
| -rw-r--r-- | ghc/compiler/javaGen/Java.lhs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ghc/compiler/javaGen/Java.lhs b/ghc/compiler/javaGen/Java.lhs index 1ad2cbcd34..578be9a89b 100644 --- a/ghc/compiler/javaGen/Java.lhs +++ b/ghc/compiler/javaGen/Java.lhs @@ -58,7 +58,7 @@ data Expr = Var Name Type | Literal Lit Type | Cast Type Expr - | Access Expr Name + | Access Expr Name -- perhaps: Access Expr Var? | Assign Expr Expr | InstanceOf Expr Type | Call Expr Name [Expr] @@ -99,17 +99,17 @@ type Exception = TypeName -- A class name that must be an exception. type TypeName = String -- a fully qualified type name -- like "java.lang.Object". + -- has type "Type <the name>" type Name = String -- A class name or method etc, -- at defintion time, -- this generally not a qualified name. + data Lit - = IntLit Int -- Boxed - | UIntLit Int -- Unboxed - | CharLit Char -- Boxed - | UCharLit Char -- Unboxed - | StringLit String + = IntLit Integer -- unboxed + | CharLit Char -- unboxed + | StringLit String -- java string deriving Show addModifier :: Modifier -> Decl -> Decl |