mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-06 07:05:59 +00:00
39 lines
578 B
Elm
39 lines
578 B
Elm
module Messages.Data.PersonUse exposing
|
|
( de
|
|
, gb
|
|
)
|
|
|
|
import Data.PersonUse exposing (PersonUse(..))
|
|
|
|
|
|
gb : PersonUse -> String
|
|
gb pu =
|
|
case pu of
|
|
Correspondent ->
|
|
"Correspondent"
|
|
|
|
Concerning ->
|
|
"Concerning"
|
|
|
|
Both ->
|
|
"Both"
|
|
|
|
Disabled ->
|
|
"Disabled"
|
|
|
|
|
|
de : PersonUse -> String
|
|
de pu =
|
|
case pu of
|
|
Correspondent ->
|
|
"Korrespondent"
|
|
|
|
Concerning ->
|
|
"Betreffend"
|
|
|
|
Both ->
|
|
"Beide"
|
|
|
|
Disabled ->
|
|
"Deaktiviert"
|