startWebapp = do
  conn <- connect ConnectInfo
          {
            connectHost="localhost"
          , connectPort=5432
          , connectDatabase="b2b"
          , connectPassword="b2b"
          , connectUser="b2b"
          }
  let config = AppConfig{configConnection = conn}
  putStrLn "starting...."
  threadDelay (50*1000000)
  putStrLn "ending."
  -- scotty 3000 (runReaderT webapp config)