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