Fix string literal backslash escapes
commit196c9b8a6d6af9b1587638d425ec4a11c6f56efa
authorAndy Arvanitis <andyarvanitis@gmail.com>
dateMon 6 Aug 2018, 20:00 (8 years ago)
parent7fe688a
src/CodeGen/Cpp/Printer.hs+1−1
@@ -382,7 +382,7 @@ prettyPrintCpp1 :: AST -> Text
382382prettyPrintCpp1 = maybe (internalError "Incomplete pattern") runPlainString . flip evalStateT (PrinterState 0) . prettyPrintCpp'
383383
384384stringLiteral :: Text -> Text
385−stringLiteral s = "\"" <> s <> "\""
385+stringLiteral s = "\"" <> (T.replace "\\" "\\\\" s) <> "\""
386386
387387unbox :: Text -> AST -> Text
388388unbox _ v@(NumericLiteral{}) = prettyPrintCpp1 v