refactor: config validation inside readAppConfig

Remove Either from configJwtRoleClaimKey/configServerUnixSocketMode and remove whenLefts.
2021-01-22 15:56:08 -05:00
parent 4344cc9202
commit 17af56adb1
8 changed files with 38 additions and 41 deletions
@@ -82,7 +82,7 @@ _baseCfg = let secret = Just $ encodeUtf8 "reallyreallyreallyreallyverysafe" in
  , configDbUri                 = mempty
  , configJWKS                  = parseSecret <$> secret
  , configJwtAudience           = Nothing
-  , configJwtRoleClaimKey       = Right [JSPKey "role"]
+  , configJwtRoleClaimKey       = [JSPKey "role"]
  , configJwtSecret             = secret
  , configJwtSecretIsBase64     = False
  , configLogLevel              = LogCrit
@@ -91,7 +91,7 @@ _baseCfg = let secret = Just $ encodeUtf8 "reallyreallyreallyreallyverysafe" in
  , configServerHost            = "localhost"
  , configServerPort            = 3000
  , configServerUnixSocket      = Nothing
-  , configServerUnixSocketMode  = Right 432
+  , configServerUnixSocketMode  = 432
  , configDbTxAllowOverride     = True
  , configDbTxRollbackAll       = True
  }