Add japanese document language

This commit is contained in:
eikek
2021-07-28 20:05:38 +02:00
parent 0104cdc825
commit f994d4b248
7 changed files with 66 additions and 2 deletions

View File

@ -29,6 +29,7 @@ type Language
| Romanian
| Dutch
| Latvian
| Japanese
fromString : String -> Maybe Language
@ -78,6 +79,9 @@ fromString str =
else if str == "lav" || str == "lv" || str == "latvian" then
Just Latvian
else if str == "jpn" || str == "ja" || str == "japanese" then
Just Japanese
else
Nothing
@ -130,6 +134,9 @@ toIso3 lang =
Latvian ->
"lav"
Japanese ->
"jpn"
all : List Language
all =
@ -148,4 +155,5 @@ all =
, Russian
, Romanian
, Latvian
, Japanese
]

View File

@ -61,6 +61,9 @@ gb lang =
Latvian ->
"Latvian"
Japanese ->
"Japanese"
de : Language -> String
de lang =
@ -109,3 +112,6 @@ de lang =
Latvian ->
"Lettisch"
Japanese ->
"Japanisch"