diff options
author | Jasper Van der Jeugt | 2020-08-18 14:40:10 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-18 14:40:10 +0200 |
commit | 50abccd8a4243c561cc39c54f84ddfaae8c73120 (patch) | |
tree | 8c6df6d08bf0d77970d68d17c18e50ef56143851 /server/lib/Uplcg/Config.hs | |
parent | 7fd01907dc68631465f274cf0d4d58896f5fd03a (diff) |
Refactor: remove BaseUrl
Diffstat (limited to 'server/lib/Uplcg/Config.hs')
-rw-r--r-- | server/lib/Uplcg/Config.hs | 21 |
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") |