From 50abccd8a4243c561cc39c54f84ddfaae8c73120 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Tue, 18 Aug 2020 14:40:10 +0200
Subject: Refactor: remove BaseUrl

---
 server/lib/Uplcg/Config.hs | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 server/lib/Uplcg/Config.hs

(limited to 'server/lib/Uplcg/Config.hs')

diff --git a/server/lib/Uplcg/Config.hs b/server/lib/Uplcg/Config.hs
deleted file mode 100644
index 9197d97..0000000
--- a/server/lib/Uplcg/Config.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module Uplcg.Config
-    ( Config (..)
-    , fromEnv
-    ) where
-
-import qualified Data.Text          as T
-import           System.Environment (getEnv)
-import           Uplcg.BaseUrl      (BaseUrl)
-import qualified Uplcg.BaseUrl      as BaseUrl
-
-data Config = Config
-    { cHostname :: String
-    , cPort     :: Int
-    , cBaseUrl  :: BaseUrl
-    } deriving (Show)
-
-fromEnv :: IO Config
-fromEnv = Config
-    <$> getEnv "UPLCG_HOSTNAME"
-    <*> (read <$> getEnv "UPLCG_PORT")
-    <*> (BaseUrl.parse . T.pack <$> getEnv "UPLCG_BASE")
-- 
cgit v1.2.3