getEnvironment :: IO Environment
getEnvironment = maybe Production read <$> lookupEnv "SCOTTY_ENV"
getEnvironment :: IO Environment
getEnvironment = maybe Production read <$> lookupEnv "SCOTTY_ENV"
getEnvironment = maybe Production read <$> lookupEnv "SCOTTY_ENV"