Add latvian language

This commit is contained in:
Eike Kettner
2021-03-09 00:19:33 +01:00
parent e4ef299582
commit 9991ad5fcc
6 changed files with 74 additions and 1 deletions

View File

@ -22,6 +22,7 @@ type Language
| Russian
| Romanian
| Dutch
| Latvian
fromString : String -> Maybe Language
@ -68,6 +69,9 @@ fromString str =
else if str == "ron" || str == "ro" || str == "romanian" then
Just Romanian
else if str == "lav" || str == "lv" || str == "latvian" then
Just Latvian
else
Nothing
@ -117,6 +121,9 @@ toIso3 lang =
Dutch ->
"nld"
Latvian ->
"lav"
toName : Language -> String
toName lang =
@ -163,6 +170,9 @@ toName lang =
Dutch ->
"Dutch"
Latvian ->
"Latvian"
all : List Language
all =
@ -180,4 +190,5 @@ all =
, Swedish
, Russian
, Romanian
, Latvian
]