ortedLanguages :: [String]
supportedLanguages = [ name | (name, _, _) <- languageFlags ]

su
supportedLanguages :: [String]
supportedLanguages = [ name | (name, _, _) <- languageFlags ]
supportedLanguages = [ name | (name, _, _) <- languageFlags ]