From c015db01e2acee9d1fc83cd6a762d0a3e629b353 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 1 Nov 2015 11:58:42 +0100 Subject: Use in client the real currency set in config.txt --- src/client/Main.elm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/client/Main.elm') diff --git a/src/client/Main.elm b/src/client/Main.elm index de98809..4f96675 100644 --- a/src/client/Main.elm +++ b/src/client/Main.elm @@ -17,6 +17,7 @@ import Model.User exposing (Users, usersDecoder, UserId, userIdDecoder) import Model.Payment exposing (Payments, paymentsDecoder, perPage) import Model.Payer exposing (Payers, payersDecoder) import Model.Translations exposing (..) +import Model.Config exposing (..) import Update exposing (Action(..), actions, updateModel) import Update.SignIn exposing (..) @@ -29,7 +30,7 @@ main : Signal Html main = Signal.map renderPage model model : Signal Model -model = Signal.foldp updateModel (initialModel initialTime translations) update +model = Signal.foldp updateModel (initialModel initialTime translations config) update update : Signal Action update = Signal.mergeMany @@ -51,6 +52,10 @@ port translations : String --------------------------------------- +port config : String + +--------------------------------------- + port initView : Task Http.Error () port initView = case signInError of -- cgit v1.2.3