-module(monitor_translate). -export([loop/0]). loop() -> process_flag(trap_exit, true), receive new -> io:format("Starting translator.~n"), register(translator, spawn_link(translate_service, loop, [])), loop(); {'EXIT', From, Reason} -> io:format("Translator ~p died with reason ~p, restarting.~n", [From, Reason]), self() ! new, loop() end.