runServer :: IO ()
runServer = do
  opts <- cmdArgs options
  let filename = wordsFile opts
  words <- getRandomizedWords filename
  let completionCandidates = insertMany words
  putStrLn $ "Rievaulx is serving \"" ++ filename ++ "\" on http://localhost:" ++ show port ++ "/ ..."
  run port $ staticMiddleware $ createApp completionCandidates
runServer :: IO ()
runServer = do
  opts <- cmdArgs options
  let filename = wordsFile opts
  words <- getRandomizedWords filename
  let completionCandidates = insertMany words
  putStrLn $ "Rievaulx is serving \"" ++ filename ++ "\" on http://localhost:" ++ show port ++ "/ ..."
  run port $ staticMiddleware $ createApp completionCandidates
runServer = do
  opts <- cmdArgs options
  let filename = wordsFile opts
  words <- getRandomizedWords filename
  let completionCandidates = insertMany words
  putStrLn $ "Rievaulx is serving \"" ++ filename ++ "\" on http://localhost:" ++ show port ++ "/ ..."
  run port $ staticMiddleware $ createApp completionCandidates