src/client/elm/Model/Config.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Model.Config
  ( Config
  , configDecoder
  ) where

import Json.Decode exposing (..)

type alias Config =
  { currency : String
  }

configDecoder : Decoder Config
configDecoder = object1 Config ("currency" := string)

defaultConfig : Config
defaultConfig =
  { currency = "€"
  }