startApp :: IO ()
startApp = do
  putStrLn "running on 127.0.0.1:8080"
  withStdoutLogger $ \aplogger -> do
      let settings = setPort 8080 . setHost "*" $ setLogger aplogger defaultSettings
      runSettings settings app
startApp :: IO ()
startApp = do
  putStrLn "running on 127.0.0.1:8080"
  withStdoutLogger $ \aplogger -> do
      let settings = setPort 8080 . setHost "*" $ setLogger aplogger defaultSettings
      runSettings settings app
startApp = do
  putStrLn "running on 127.0.0.1:8080"
  withStdoutLogger $ \aplogger -> do
      let settings = setPort 8080 . setHost "*" $ setLogger aplogger defaultSettings
      runSettings settings app