diff options
author | Joris | 2016-03-20 22:38:44 +0100 |
---|---|---|
committer | Joris | 2016-03-21 20:43:55 +0100 |
commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/client/elm/Model.elm | |
parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) | |
download | budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.gz budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.bz2 budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.zip |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/client/elm/Model.elm')
-rw-r--r-- | src/client/elm/Model.elm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/client/elm/Model.elm b/src/client/elm/Model.elm index 43a19c5..5dc6692 100644 --- a/src/client/elm/Model.elm +++ b/src/client/elm/Model.elm @@ -8,25 +8,25 @@ import Json.Decode as Json import Model.View exposing (..) import Model.Translations exposing (..) -import Model.Config exposing (..) +import Model.Conf exposing (..) type alias Model = { view : View , currentTime : Time , translations : Translations - , config : Config + , conf : Conf } initialModel : Time -> String -> String -> Model -initialModel initialTime translationsValue configValue = +initialModel initialTime translationsValue confValue = { view = LoadingView , currentTime = initialTime , translations = case Json.decodeString translationsDecoder translationsValue of Ok translations -> translations Err err -> [] - , config = - case Json.decodeString configDecoder configValue of - Ok config -> config + , conf = + case Json.decodeString confDecoder confValue of + Ok conf -> conf Err err -> { currency = "" } } |