Время примитивных вопросов пришло! Почему BlazeServerBuilder.compile.drain и другие способы создания сервера

Question

Время примитивных вопросов пришло! Почему BlazeServerBuilder.compile.drain и другие способы создания сервера

в http4s по-умолчанию не cancellable?

Правильный / самый короткий ли способ исправить эту ситуацию что-то вроде такого:
def initializeServer: IO[Unit] =
for {
terminateWhenTrue <- SignallingRef[IO, Boolean](false)
exitCode <- Ref.of[IO, ExitCode](ExitCode.Success)
_ <- IO.cancelable[Unit] { _ =>
BlazeServerBuilder[IO]
.bindHttp(8080)
.withHttpApp(app)
.serveWhile(terminateWhenTrue, exitCode)
.compile
.drain
terminateWhenTrue.set(true)
}
} yield ()

Предвосхищая вопросы о том зачем это нужно: чтобы без sbtRevolver / fork работал в sbt Ctrl-C при использовании IOApp.