Fix String rendering in Java does not work (BNFC#159)

gapag · Nov 19, 2015 · 4008c8b · 4008c8b
1 parent 776d58b
commit 4008c8b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/src/BNFC/Backend/Java/CFtoJavaPrinter15.hs b/source/src/BNFC/Backend/Java/CFtoJavaPrinter15.hs
@@ -298,7 +298,7 @@ prList user c rules =
 -- <BLANKLINE>
 prCat :: Doc -> Either (Cat, Doc) String -> Doc
 prCat _ (Right t) = nest 7 ("render(\"" <> text(escapeChars t) <> "\");\n")
-prCat fnm (Left (Cat "String", nt))
+prCat fnm (Left (TokenCat "String", nt))
     = nest 7 ("printQuoted(" <> fnm <> "." <> nt <> ");\n")
 prCat _ (Left (InternalCat, _)) = empty
 prCat fnm (Left (cat, nt))