From 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 20 Mar 2016 22:38:44 +0100 Subject: use config-manager instead of ConfigFile --- src/server/Model/Json/Conf.hs | 17 +++++++++++++++++ src/server/Model/Json/Config.hs | 17 ----------------- 2 files changed, 17 insertions(+), 17 deletions(-) create mode 100644 src/server/Model/Json/Conf.hs delete mode 100644 src/server/Model/Json/Config.hs (limited to 'src/server/Model/Json') diff --git a/src/server/Model/Json/Conf.hs b/src/server/Model/Json/Conf.hs new file mode 100644 index 0000000..a66fb55 --- /dev/null +++ b/src/server/Model/Json/Conf.hs @@ -0,0 +1,17 @@ +{-# LANGUAGE DeriveGeneric #-} + +module Model.Json.Conf + ( Conf(..) + ) where + +import GHC.Generics + +import Data.Aeson +import Data.Text + +data Conf = Conf + { currency :: Text + } deriving (Show, Generic) + +instance FromJSON Conf +instance ToJSON Conf diff --git a/src/server/Model/Json/Config.hs b/src/server/Model/Json/Config.hs deleted file mode 100644 index 422ecee..0000000 --- a/src/server/Model/Json/Config.hs +++ /dev/null @@ -1,17 +0,0 @@ -{-# LANGUAGE DeriveGeneric #-} - -module Model.Json.Config - ( Config(..) - ) where - -import GHC.Generics - -import Data.Aeson -import Data.Text - -data Config = Config - { currency :: Text - } deriving (Show, Generic) - -instance FromJSON Config -instance ToJSON Config -- cgit v1.2.3