mirror of
https://github.com/jhillyerd/inbucket.git
synced 2025-12-18 10:07:02 +00:00
21 lines
342 B
Elm
21 lines
342 B
Elm
module Data.AppConfig exposing (AppConfig, decoder, default)
|
|
|
|
import Json.Decode as D
|
|
import Json.Decode.Pipeline as P
|
|
|
|
|
|
type alias AppConfig =
|
|
{ monitorVisible : Bool
|
|
}
|
|
|
|
|
|
decoder : D.Decoder AppConfig
|
|
decoder =
|
|
D.succeed AppConfig
|
|
|> P.required "monitor-visible" D.bool
|
|
|
|
|
|
default : AppConfig
|
|
default =
|
|
AppConfig True
|