src/client/elm/Model/Conf.elm


1
2
3
4
5
6
7
8
9
10
11
12
13

module Model.Conf exposing
  ( Conf
  , confDecoder
  )

import Json.Decode as Decode exposing (Decoder)

type alias Conf =
  { currency : String
  }

confDecoder : Decoder Conf
confDecoder = Decode.map Conf (Decode.field "currency" Decode.string)