mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 19:08:26 +00:00
20 lines
324 B
Elm
20 lines
324 B
Elm
module Messages.Data.PersonUse exposing (..)
|
|
|
|
import Data.PersonUse exposing (PersonUse(..))
|
|
|
|
|
|
gb : PersonUse -> String
|
|
gb pu =
|
|
case pu of
|
|
Correspondent ->
|
|
"Correspondent"
|
|
|
|
Concerning ->
|
|
"Concerning"
|
|
|
|
Both ->
|
|
"Both"
|
|
|
|
Disabled ->
|
|
"Disabled"
|