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/Main.elm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/client/Main.elm') diff --git a/src/client/Main.elm b/src/client/Main.elm index fd0cec7..226ae13 100644 --- a/src/client/Main.elm +++ b/src/client/Main.elm @@ -11,10 +11,12 @@ import Html exposing (Html) import Http import Task exposing (..) import Time exposing (..) +import Json.Decode as Json import Model exposing (Model, initialModel) import Model.Payment exposing (Payments, paymentsDecoder) import Model.Message exposing (messageDecoder) +import Model.Translations exposing (..) import Update exposing (Action(..), actions, updateModel) import Update.SignIn exposing (..) @@ -29,7 +31,7 @@ main : Signal Html main = Signal.map renderPage model model : Signal Model -model = Signal.foldp updateModel (initialModel initialTime) update +model = Signal.foldp updateModel (initialModel initialTime translations) update update : Signal Action update = Signal.mergeMany @@ -47,6 +49,10 @@ port initialTime : Time --------------------------------------- +port translations : String + +--------------------------------------- + port initView : Task Http.Error () port initView = case signInError of -- cgit v1.2.3