aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Model.elm')
-rw-r--r--src/client/Model.elm32
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 = "" }
- }