Refactor: remove BaseUrl

1 files changed, 0 insertions, 21 deletions

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")