From a14af8d8f2cc9d561a8c8804a4c73b9a35ce8a97 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 1 Nov 2015 10:49:08 +0100
Subject: Set currency in conf instead of in messages

---
 src/client/Model.elm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/src/client/Model.elm b/src/client/Model.elm
index 72db56a..c330d86 100644
--- a/src/client/Model.elm
+++ b/src/client/Model.elm
@@ -8,11 +8,13 @@ import Json.Decode as Json
 
 import Model.View exposing (..)
 import Model.Translations exposing (..)
+import Model.Conf exposing (..)
 
 type alias Model =
   { view : View
   , currentTime : Time
   , translations : Translations
+  , conf : Conf
   }
 
 initialModel : Time -> String -> Model
@@ -23,4 +25,5 @@ initialModel initialTime translationsValue =
       case Json.decodeString translationsDecoder translationsValue of
         Ok translations -> translations
         Err err -> []
+  , conf = { currency = "€" }
   }
-- 
cgit v1.2.3