diff options
author | Jasper Van der Jeugt | 2020-08-16 10:21:14 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-16 10:21:14 +0200 |
commit | 9f2d12f0b098a365d7b0d4cc00b03fd2e5284740 (patch) | |
tree | bab2b7de1ccdb4618640cc951490d51ed8c66938 /server/lib/Uplcg/Config.hs | |
parent | 41622353bc3309921109f44bc0163e0987c20052 (diff) |
WIP
Diffstat (limited to 'server/lib/Uplcg/Config.hs')
-rw-r--r-- | server/lib/Uplcg/Config.hs | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/server/lib/Uplcg/Config.hs b/server/lib/Uplcg/Config.hs new file mode 100644 index 0000000..627a829 --- /dev/null +++ b/server/lib/Uplcg/Config.hs @@ -0,0 +1,24 @@ +module Uplcg.Config + ( Config (..) + , fromEnv + ) where + +import Data.String (fromString) +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 + , cVersion :: String + } deriving (Show) + +fromEnv :: IO Config +fromEnv = Config + <$> getEnv "UPLCG_HOSTNAME" + <*> (read <$> getEnv "UPLCG_PORT") + <*> (BaseUrl.parse . T.pack <$> getEnv "UPLCG_BASE") + <*> getEnv "UPLCG_VERSION" |