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/Model/Conf.elm   |  7 -------
 src/client/Model/Config.elm | 18 ++++++++++++++++++
 2 files changed, 18 insertions(+), 7 deletions(-)
 delete mode 100644 src/client/Model/Conf.elm
 create mode 100644 src/client/Model/Config.elm

(limited to 'src/client/Model')

diff --git a/src/client/Model/Conf.elm b/src/client/Model/Conf.elm
deleted file mode 100644
index 183fd68..0000000
--- a/src/client/Model/Conf.elm
+++ /dev/null
@@ -1,7 +0,0 @@
-module Model.Conf
-  ( Conf
-  ) where
-
-type alias Conf =
-  { currency : String
-  }
diff --git a/src/client/Model/Config.elm b/src/client/Model/Config.elm
new file mode 100644
index 0000000..e47b032
--- /dev/null
+++ b/src/client/Model/Config.elm
@@ -0,0 +1,18 @@
+module Model.Config
+  ( Config
+  , configDecoder
+  ) where
+
+import Json.Decode exposing (..)
+
+type alias Config =
+  { currency : String
+  }
+
+configDecoder : Decoder Config
+configDecoder = object1 Config ("currency" := string)
+
+defaultConfig : Config
+defaultConfig =
+  { currency = "€"
+  }
-- 
cgit v1.2.3