escapeStatusCodes :: String -> String
escapeStatusCodes title = foldl (\acc c -> acc ++ case c of
 '{' -> "("
 '}' -> ")"
 a -> [a]) [] title
escapeStatusCodes :: String -> String
escapeStatusCodes title = foldl (\acc c -> acc ++ case c of
 '{' -> "("
 '}' -> ")"
 a -> [a]) [] title
escapeStatusCodes title = foldl (\acc c -> acc ++ case c of
 '{' -> "("
 '}' -> ")"
 a -> [a]) [] title