board_events.erl

-module(board_events).
-compile(export_all).
-behaviour(gen_event).

init([]) ->
    {ok, []}.

handle_event({answer, [], SolveTime}, State) ->
    io:format("Answer: Bad Tree~n"),
    io:format("Took: ~p seconds~n", [SolveTime]),
    {ok, State};
handle_event({answer, Board, SolveTime}, State) ->
    io:format("Answer: ~n~p~n", [Board]),
    io:format("Took: ~p seconds~n", [SolveTime]),
    {ok, State};

handle_event(Event, State) ->
    io:format('Unexpected Event: ~p~n', [Event]),
    {ok, State}.

handle_call(_, State) ->
    {ok, ok, State}.

handle_info(_, State) ->
    {ok, State}.

code_change(_OldVsn, State, _Extra) ->
    {ok, State}.

terminate(_Reason, _State) ->
    ok.