mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-22 18:38:26 +00:00
47 lines
679 B
Elm
47 lines
679 B
Elm
{-
|
|
Copyright 2020 Eike K. & Contributors
|
|
|
|
SPDX-License-Identifier: AGPL-3.0-or-later
|
|
-}
|
|
|
|
|
|
module Data.OrgUse exposing
|
|
( OrgUse(..)
|
|
, all
|
|
, asString
|
|
, fromString
|
|
)
|
|
|
|
|
|
type OrgUse
|
|
= Correspondent
|
|
| Disabled
|
|
|
|
|
|
fromString : String -> Maybe OrgUse
|
|
fromString str =
|
|
case String.toLower str of
|
|
"correspondent" ->
|
|
Just Correspondent
|
|
|
|
"disabled" ->
|
|
Just Disabled
|
|
|
|
_ ->
|
|
Nothing
|
|
|
|
|
|
asString : OrgUse -> String
|
|
asString pu =
|
|
case pu of
|
|
Correspondent ->
|
|
"correspondent"
|
|
|
|
Disabled ->
|
|
"disabled"
|
|
|
|
|
|
all : List OrgUse
|
|
all =
|
|
[ Correspondent, Disabled ]
|