mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-07 23:55:28 +00:00
42 lines
582 B
Elm
42 lines
582 B
Elm
module Data.SourceState exposing
|
|
( SourceState(..)
|
|
, all
|
|
, fromString
|
|
, toString
|
|
)
|
|
|
|
|
|
type SourceState
|
|
= Active
|
|
| Disabled
|
|
|
|
|
|
fromString : String -> Maybe SourceState
|
|
fromString str =
|
|
case String.toLower str of
|
|
"active" ->
|
|
Just Active
|
|
|
|
"disabled" ->
|
|
Just Disabled
|
|
|
|
_ ->
|
|
Nothing
|
|
|
|
|
|
all : List SourceState
|
|
all =
|
|
[ Active
|
|
, Disabled
|
|
]
|
|
|
|
|
|
toString : SourceState -> String
|
|
toString dir =
|
|
case dir of
|
|
Active ->
|
|
"Active"
|
|
|
|
Disabled ->
|
|
"Disabled"
|