Add hebrew document language

This commit is contained in:
wallace
2021-08-24 01:19:42 +03:00
parent 945ca6f561
commit 589c41003f
7 changed files with 48 additions and 2 deletions

View File

@ -30,6 +30,7 @@ type Language
| Dutch
| Latvian
| Japanese
| Hebrew
fromString : String -> Maybe Language
@ -82,6 +83,9 @@ fromString str =
else if str == "jpn" || str == "ja" || str == "japanese" then
Just Japanese
else if str == "heb" || str == "he" || str == "hebrew" then
Just Hebrew
else
Nothing
@ -137,6 +141,9 @@ toIso3 lang =
Japanese ->
"jpn"
Hebrew ->
"heb"
all : List Language
all =
@ -156,4 +163,5 @@ all =
, Romanian
, Latvian
, Japanese
, Hebrew
]