Supervisor module for a frequency server

superv.erl

-module(superv).
-export([start/1, init/1]).

%% Starts the supervisor
%% Server has form {Module, Function, Args}
start(Server) ->
    register(?MODULE,
       spawn(?MODULE, init, [Server])).

%% Initializes the supervision process
init(Server) ->
    process_flag(trap_exit, true),
    loop(start_server(Server)).

%% Starts and links to the server
start_server({Module, Function, Args}) ->
    apply(Module, Function, Args),
    Pid = whereis(Module),
    link(Pid),
    {Pid, {Module, Function, Args}}.

%% The supervision loop
%% Listens for Exit signals from the server and restarts accordingly
%% If the supervisor receives a stop message, it terminates the server
loop({Pid, ServerInfo}) ->
    receive
        {'EXIT', Pid, _Reason} ->
            unlink(Pid),
            NewServerInfo = start_server(ServerInfo),
            loop(NewServerInfo);
        stop ->
            terminate(Pid)
    end.

%% Terminates a server
terminate(Pid) ->
    exit(Pid, kill),
    ok.