Read CLIENT and SERVER endpoints from .envrc

In the spirit of DRY.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Types.hs b/src/Types.hs
index 7bfdf6cfd000..f47e1419757a 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -33,12 +33,16 @@ import qualified Data.UUID as UUID
 data Config = Config
   { mailgunAPIKey :: Text
   , dbFile :: FilePath
+  , configClient :: Text
+  , configServer :: Text
   } deriving (Eq, Show)
 
 instance FromEnv Config where
   fromEnv _ = do
     mailgunAPIKey <- env "MAILGUN_API_KEY"
     dbFile <- env "DB_FILE"
+    configClient <- env "CLIENT"
+    configServer <- env "SERVER"
     pure Config {..}
 
 -- TODO(wpcarro): Properly handle NULL for columns like profilePicture.