1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25open LocaleStringTypes let mapLocalStringToTypeLocale = val => { switch val { | "he" => HE | "fr" => FR | "en-GB" => EN_GB | "ar" => AR | "ja" => JA | "de" => DE | "fr-BE" => FR_BE | "es" => ES | "ca" => CA | "pt" => PT | "it" => IT | "pl" => PL | "nl" => NL | "sv" => SV | "ru" => RU | "zh" => ZH | "en" | _ => EN } }