@@ -109,13 +109,14 @@ chars chrs =
109 String (B.char7 '"' <> B.stringUtf8 (escape chrs) <> B.char7 '"')
109 String (B.char7 '"' <> B.stringUtf8 (escape chrs) <> B.char7 '"')
112−escape :: [Char] -> [Char] -- TODO is this correct?
112+escape :: [Char] -> [Char]
113escape chrs =
113escape chrs =
114 case chrs of
114 case chrs of
119+ | c == '\r' -> '\\' : 'r' : escape cs
119 | c == '\n' -> '\\' : 'n' : escape cs
120 | c == '\n' -> '\\' : 'n' : escape cs
120 | c == '\"' -> '\\' : '"' : escape cs
121 | c == '\"' -> '\\' : '"' : escape cs
121 | c == '\'' -> '\\' : '\'' : escape cs
122 | c == '\'' -> '\\' : '\'' : escape cs