@@ -289,7 +289,8 @@ charLit = let q = '\'' in
289289 control = lexStr ["NUL", "SOH", "STX", "ETX", "EOT", "ENQ", "ACK", "BEL",
290290 "BS", "HT", "LF", "VT", "FF", "CR", "SO", "SI",
291291 "DLE", "DC1", "DC2", "DC3", "DC4", "NAK", "SYN", "ETB",
292− "CAN", "EM", "SUB", "ESC", "FS", "GS", "RS", "US"]
292+ "CAN", "EM", "SUB", "ESC", "FS", "GS", "RS", "US",
293+ "SP", "DEL"]
293294 <|> (is 'x' <+> hexDigits)
294295 <|> (is 'o' <+> octDigits)
295296 <|> digits