mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-22 02:18:26 +00:00
Using elm-format for all files
This commit is contained in:
@ -1,27 +1,49 @@
|
||||
module Data.Language exposing (..)
|
||||
module Data.Language exposing
|
||||
( Language(..)
|
||||
, all
|
||||
, fromString
|
||||
, toIso3
|
||||
, toName
|
||||
)
|
||||
|
||||
|
||||
type Language
|
||||
= German
|
||||
| English
|
||||
|
||||
fromString: String -> Maybe Language
|
||||
fromString str =
|
||||
if str == "deu" || str == "de" || str == "german" then Just German
|
||||
else if str == "eng" || str == "en" || str == "english" then Just English
|
||||
else Nothing
|
||||
|
||||
toIso3: Language -> String
|
||||
fromString : String -> Maybe Language
|
||||
fromString str =
|
||||
if str == "deu" || str == "de" || str == "german" then
|
||||
Just German
|
||||
|
||||
else if str == "eng" || str == "en" || str == "english" then
|
||||
Just English
|
||||
|
||||
else
|
||||
Nothing
|
||||
|
||||
|
||||
toIso3 : Language -> String
|
||||
toIso3 lang =
|
||||
case lang of
|
||||
German -> "deu"
|
||||
English -> "eng"
|
||||
German ->
|
||||
"deu"
|
||||
|
||||
toName: Language -> String
|
||||
English ->
|
||||
"eng"
|
||||
|
||||
|
||||
toName : Language -> String
|
||||
toName lang =
|
||||
case lang of
|
||||
German -> "German"
|
||||
English -> "English"
|
||||
German ->
|
||||
"German"
|
||||
|
||||
all: List Language
|
||||
English ->
|
||||
"English"
|
||||
|
||||
|
||||
all : List Language
|
||||
all =
|
||||
[ German, English ]
|
||||
|
Reference in New Issue
Block a user