Chicagoboss tutorial output json

gistfile1.erl

-module(cb_tutorial_greeting_controller, [Req]).
-compile(export_all).
hello('GET', []) ->
  {json, [{greeting, "Hello, world!"}]}.

list('GET', []) ->
  Greetings = boss_db:find(greeting, []),
  case Greetings of
    [] ->
      {output, <<"[]">>, [{"Content-Type", "application/json"}]};
    _Else ->
      Greetings1 = [{greeting:id(G), greeting:greeting_text(G)} 
        || G <- Greetings], 
      {json, [{greetings, Greetings1}]}
  end.