diff options
Diffstat (limited to 'ghc/compiler/javaGen/PrintJava.lhs')
| -rw-r--r-- | ghc/compiler/javaGen/PrintJava.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/javaGen/PrintJava.lhs b/ghc/compiler/javaGen/PrintJava.lhs index 0db596d489..edaf8e594f 100644 --- a/ghc/compiler/javaGen/PrintJava.lhs +++ b/ghc/compiler/javaGen/PrintJava.lhs @@ -220,7 +220,7 @@ call e n es = e <> dot <> n <> parens (hsep (punctuate comma (map expr es))) literal = \l -> case l of { IntLit i -> text (show i) - ; CharLit c -> text (show c) + ; CharLit c -> text "(char)" <+> text (show c) ; StringLit s -> text ("\"" ++ s ++ "\"") -- strings are already printable } |