mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 02:48:26 +00:00
49 lines
666 B
Elm
49 lines
666 B
Elm
{-
|
|
Copyright 2020 Eike K. & Contributors
|
|
|
|
SPDX-License-Identifier: AGPL-3.0-or-later
|
|
-}
|
|
|
|
|
|
module Data.UserState exposing
|
|
( UserState(..)
|
|
, all
|
|
, fromString
|
|
, toString
|
|
)
|
|
|
|
|
|
type UserState
|
|
= Active
|
|
| Disabled
|
|
|
|
|
|
fromString : String -> Maybe UserState
|
|
fromString str =
|
|
case String.toLower str of
|
|
"active" ->
|
|
Just Active
|
|
|
|
"disabled" ->
|
|
Just Disabled
|
|
|
|
_ ->
|
|
Nothing
|
|
|
|
|
|
all : List UserState
|
|
all =
|
|
[ Active
|
|
, Disabled
|
|
]
|
|
|
|
|
|
toString : UserState -> String
|
|
toString dir =
|
|
case dir of
|
|
Active ->
|
|
"Active"
|
|
|
|
Disabled ->
|
|
"Disabled"
|