import process/process
import process/process.{From, Pid, BarePid, ExitReason, Normal, Kill, Infinity, Milliseconds, TrapExit}
import process/supervisor/rest_for_one
import net/http
import magpie/server_supervisor
import magpie/governor_supervisor

fn init(handler, port) {
  let Ok(listen_socket) = http.listen(port)

  rest_for_one.Two(
    fn() { server_supervisor.spawn_link(handler, listen_socket) },
    fn(server_sup) { governor_supervisor.spawn_link(server_sup) },
  )
}

pub fn spawn_link(handler, port: Int) -> Pid(rest_for_one.Messages(a)) {
  rest_for_one.spawn_link(fn() { init(handler, port) })
}