runApp :: Config -> IO ()
runApp config = do
  environment <- getEnvironment
  options <- getOptions environment
  let reader m = runReaderT (runConfig m) config
  scottyOptsT options reader $ app config
runApp :: Config -> IO ()
runApp config = do
  environment <- getEnvironment
  options <- getOptions environment
  let reader m = runReaderT (runConfig m) config
  scottyOptsT options reader $ app config
runApp config = do
  environment <- getEnvironment
  options <- getOptions environment
  let reader m = runReaderT (runConfig m) config
  scottyOptsT options reader $ app config