readEnv :: Text -> Environment
readEnv txt =
  case txt of
    "localhost" -> Localhost
    "dev"       -> Development
    "test"      -> Test
    "stage"     -> Staging
    "prod"      -> Production
    

-- | This returns a 'Middleware' based on the environment that we're in.
readEnv :: Text -> Environment
readEnv txt =
  case txt of
    "localhost" -> Localhost
    "dev"       -> Development
    "test"      -> Test
    "stage"     -> Staging
    "prod"      -> Production
    

-- | This returns a 'Middleware' based on the environment that we're in.
readEnv txt =
  case txt of
    "localhost" -> Localhost
    "dev"       -> Development
    "test"      -> Test
    "stage"     -> Staging
    "prod"      -> Production
    

-- | This returns a 'Middleware' based on the environment that we're in.