main :: IO ()
main = do
  opts  <- tokenOptions
  putStrLn $ "Loading configuration " ++ (opts ^. config)
  cfg   <- load [ Required $ opts ^. config ]
  cinfo <- getConnectInfo cfg
  conn  <- R.connect cinfo
  scottyT (opts ^. port) id $ tokenService conn
main :: IO ()
main = do
  opts  <- tokenOptions
  putStrLn $ "Loading configuration " ++ (opts ^. config)
  cfg   <- load [ Required $ opts ^. config ]
  cinfo <- getConnectInfo cfg
  conn  <- R.connect cinfo
  scottyT (opts ^. port) id $ tokenService conn
main = do
  opts  <- tokenOptions
  putStrLn $ "Loading configuration " ++ (opts ^. config)
  cfg   <- load [ Required $ opts ^. config ]
  cinfo <- getConnectInfo cfg
  conn  <- R.connect cinfo
  scottyT (opts ^. port) id $ tokenService conn