aboutsummaryrefslogtreecommitdiff
path: root/server/lib/Uplcg/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--server/lib/Uplcg/Config.hs21
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")