Chicago Boss universal RESTFUL json resource

domain_controller.erl

-module(app_name_domain_controller, [Req]).
-compile(export_all).

all('GET', [Type]) ->
  % TODO: expand flexibility of filtering interface
  {json, boss_db:find(list_to_atom(Type), lists:map(fun({K, V}) -> {list_to_atom(K), 'equals', V} end, 
    Req:query_params()), [{order_by, last_update}, {order, desc}])}.

show('GET', [Id]) ->
  Model = boss_db:find(Id),
  case Model of 
    undefined ->
      {json, [{error, "Record not found"}]};
    _Else ->  
      {json, Model}
  end.