diff options
Diffstat (limited to 'src/client/Model.elm')
-rw-r--r-- | src/client/Model.elm | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/client/Model.elm b/src/client/Model.elm deleted file mode 100644 index 43a19c5..0000000 --- a/src/client/Model.elm +++ /dev/null @@ -1,32 +0,0 @@ -module Model - ( Model - , initialModel - ) where - -import Time exposing (Time) -import Json.Decode as Json - -import Model.View exposing (..) -import Model.Translations exposing (..) -import Model.Config exposing (..) - -type alias Model = - { view : View - , currentTime : Time - , translations : Translations - , config : Config - } - -initialModel : Time -> String -> String -> Model -initialModel initialTime translationsValue configValue = - { 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 - Err err -> { currency = "" } - } |