src/client/elm/Model/Conf.elm


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

module Model.Conf
  ( Conf
  , confDecoder
  ) where

import Json.Decode exposing (..)

type alias Conf =
  { currency : String
  }

confDecoder : Decoder Conf
confDecoder = object1 Conf ("currency" := string)