anchor.diff:      [ [], Type, Id | _ ] ->
         case cloche:do_get(Cloche, Type, Id) of
           undefined -> not_found(Req);
  -        Json -> Req:ok({ "application/json", Json })
  +        Json -> ok(Req, Json)
         end;
       Any -> error(Req, "I don't get it : " ++ Any)
     end.
  
positive.code: % helpers
  %
  
  not_found(Req) ->
    Req:respond({ 404, [{ "Content-Type", "text/plain" }], "not found." }).
  
  error(Req, Msg) ->
    Req:respond({ 500, [{ "Content-Type", "text/plain" }], "error : " ++ Msg }).
  
  
negative.code:   mochiweb_http:start([
      { name, Name },
      { port, Port },
      { loop, fun(Req) -> handle(Req, Cloche) end } ]),
    io:format("cloche_http listening on ~p~n", [ Port ]).
  
  stop(Name) ->
    mochiweb_http:stop(Name).
  
  
  handle(Req, Cloche) ->
    handle(Req:get(method), Req, Cloche).
  