Basic gen_server

rebar.lock

@@ -0,0 +1 @@
+[].

src/havoc.erl

@@ -0,0 +1,42 @@
+%%%-------------------------------------------------------------------
+%% @doc havoc
+%% @end
+%%%-------------------------------------------------------------------
+
+-module(havoc).
+
+-behaviour(gen_server).
+
+%% API
+-export([start_link/0]).
+
+%% GenServer callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2]).
+
+-define(SERVER, ?MODULE).
+
+%%====================================================================
+%% API functions
+%%====================================================================
+start_link() ->
+    gen_server:start_link({local, ?SERVER}, ?MODULE, ok, []).
+
+%%====================================================================
+%% GenServer callbacks
+%%====================================================================
+
+init(ok) ->
+    {ok, ok}.
+
+handle_call(_Msg, _From, State) ->
+    {noreply, State}.
+
+handle_cast(_Msg, State) ->
+    {noreply, State}.
+
+handle_info(_Msg, State) ->
+    {noreply, State}.
+
+%%====================================================================
+%% Internal functions
+%%====================================================================

src/havoc_sup.erl

@@ -31,7 +31,8 @@ start_link() ->
 %% Before OTP 18 tuples must be used to specify a child. e.g.
 %% Child :: {Id,StartFunc,Restart,Shutdown,Type,Modules}
 init([]) ->
-    {ok, { {one_for_all, 0, 1}, []} }.
+    Havoc = #{id => havoc, start => {havoc, start_link, []}},
+    {ok, { {one_for_all, 0, 1}, [Havoc]} }.
 
 %%====================================================================
 %% Internal functions