add khmer lang to ui

This commit is contained in:
xshadowlegendx
2023-03-16 23:51:41 +07:00
parent 3511e1ef19
commit 7c6fc5dadd
2 changed files with 17 additions and 0 deletions

View File

@ -36,6 +36,7 @@ type Language
| Polish | Polish
| Estonian | Estonian
| Ukrainian | Ukrainian
| Khmer
fromString : String -> Maybe Language fromString : String -> Maybe Language
@ -106,6 +107,9 @@ fromString str =
else if str == "ukr" || str == "uk" || str == "ukrainian" then else if str == "ukr" || str == "uk" || str == "ukrainian" then
Just Ukrainian Just Ukrainian
else if str == "khm" || str == "kh" || str == "khmer" then
Just Khmer
else else
Nothing Nothing
@ -179,6 +183,9 @@ toIso3 lang =
Ukrainian -> Ukrainian ->
"ukr" "ukr"
Khmer ->
"khm"
all : List Language all : List Language
all = all =
@ -204,4 +211,5 @@ all =
, Polish , Polish
, Estonian , Estonian
, Ukrainian , Ukrainian
, Khmer
] ]

View File

@ -83,6 +83,9 @@ gb lang =
Ukrainian -> Ukrainian ->
"Ukrainian" "Ukrainian"
Khmer ->
"Khmer"
de : Language -> String de : Language -> String
de lang = de lang =
@ -153,6 +156,9 @@ de lang =
Ukrainian -> Ukrainian ->
"Ukrainisch" "Ukrainisch"
Khmer ->
"Khmer"
fr : Language -> String fr : Language -> String
fr lang = fr lang =
@ -222,3 +228,6 @@ fr lang =
Ukrainian -> Ukrainian ->
"Ukrainien" "Ukrainien"
Khmer ->
"Khmer"