withServer :: (Server -> IO c) -> IO c
withServer =
  bracket (startServer fakeLogger (ServerConfiguration 0 [])) stopServer
withServer :: (Server -> IO c) -> IO c
withServer =
  bracket (startServer fakeLogger (ServerConfiguration 0 [])) stopServer
withServer =
  bracket (startServer fakeLogger (ServerConfiguration 0 [])) stopServer