HttpTsec_14.scala

def run(args: List[String]): IO[ExitCode] = (for {
config <- loadConfigF[IO, Config]
userCredentialStore <- UserStore(config.users.head, config.users.tail: _*)
http <- httpApp(userCredentialStore)
res <- BlazeServerBuilder[IO]
  .bindHttp(host = config.http.host, port = config.http.port.getOrElse(0))
  .withHttpApp(http)
  .serve
  .compile
  .drain
  .map(_ => ExitCode.Success)
} yield res).handleError(_ => ExitCode.Error)