From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Conf.hs | 39 ---------------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 server/src/Conf.hs

(limited to 'server/src/Conf.hs')

diff --git a/server/src/Conf.hs b/server/src/Conf.hs
deleted file mode 100644
index ca19c8d..0000000
--- a/server/src/Conf.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Conf
-  ( get
-  , Conf(..)
-  ) where
-
-import qualified Data.ConfigManager as Conf
-import           Data.Text          (Text)
-import qualified Data.Text          as T
-import           Data.Time.Clock    (NominalDiffTime)
-
-import           Common.Model       (Currency (..))
-
-data Conf = Conf
-  { hostname         :: Text
-  , port             :: Int
-  , signInExpiration :: NominalDiffTime
-  , currency         :: Currency
-  , noReplyMail      :: Text
-  , https            :: Bool
-  , devMode          :: Bool
-  } deriving Show
-
-get :: FilePath -> IO Conf
-get path = do
-  conf <-
-    (flip fmap) (Conf.readConfig path) (\configOrError -> do
-      conf <- configOrError
-      Conf <$>
-        Conf.lookup "hostname" conf <*>
-        Conf.lookup "port" conf <*>
-        Conf.lookup "signInExpiration" conf <*>
-        fmap Currency (Conf.lookup "currency" conf) <*>
-        Conf.lookup "noReplyMail" conf <*>
-        Conf.lookup "https" conf <*>
-        Conf.lookup "devMode" conf
-    )
-  case conf of
-    Left msg -> error (T.unpack msg)
-    Right c  -> return c
-- 
cgit v1.2.3