From 892a7dd19a92fc18767984e624b8a5026dce61e4 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Tue, 11 Aug 2015 21:32:10 +0200
Subject: Showing server sides generated messages from the client

---
 src/client/Model.elm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'src/client/Model.elm')

diff --git a/src/client/Model.elm b/src/client/Model.elm
index 45fdf87..72db56a 100644
--- a/src/client/Model.elm
+++ b/src/client/Model.elm
@@ -4,16 +4,23 @@ module Model
   ) where
 
 import Time exposing (Time)
+import Json.Decode as Json
 
 import Model.View exposing (..)
+import Model.Translations exposing (..)
 
 type alias Model =
   { view : View
   , currentTime : Time
+  , translations : Translations
   }
 
-initialModel : Time -> Model
-initialModel initialTime =
+initialModel : Time -> String -> Model
+initialModel initialTime translationsValue =
   { view = LoadingView
   , currentTime = initialTime
+  , translations =
+      case Json.decodeString translationsDecoder translationsValue of
+        Ok translations -> translations
+        Err err -> []
   }
-- 
cgit v1.2.3