escapedOrNot :: String -> Parser Char
escapedOrNot escChars = readChar <$> (escaped <|> noneOf "\"")
  where
    escaped = char '\\' *> oneOf escChars
    readChar c = read $ "'\\" ++ [c] ++ "'"
escapedOrNot :: String -> Parser Char
escapedOrNot escChars = readChar <$> (escaped <|> noneOf "\"")
  where
    escaped = char '\\' *> oneOf escChars
    readChar c = read $ "'\\" ++ [c] ++ "'"
escapedOrNot escChars = readChar <$> (escaped <|> noneOf "\"")
  where
    escaped = char '\\' *> oneOf escChars
    readChar c = read $ "'\\" ++ [c] ++ "'"