anchor.diff:      generic_find_nc(FindFunc, fun dump_json/3, Name, ReqData, Ctx).
   
   generic_find_nc(FindFunc, DumpFunc, Name, ReqData, Ctx) ->
  -    % error_logger:warning_msg("in generic_find_nc and name is ~p~n", [Name]),
  +    ?D_LOG("in generic_find_nc and name is ~p~n", [Name]),
       case FindFunc(Name) of 
   	Fail when Fail =:= none orelse Fail =:= find_failed ->
   	    {{halt, 404}, ReqData, Ctx};
  
positive.code: -record(ww_ctx, {show_all=false, name, commit, branch, via, head, config_for}). 
  % -define(DO_TRACE, {trace, "priv"}).
  -define(DO_TRACE, ok).
  
  config_for(#ww_ctx{config_for=Kind}) ->
      Kind.
  
negative.code:     generic_from_json(ReqData, Ctx, NewFunc, PutKind, PathPart, fun(_,_) -> ok end).
  
  generic_from_json(ReqData, Ctx, NewFunc, PutKind, PathPart, ValidFunc) ->
      ?D_LOG("Ctx is is ~p~n", [Ctx]),
      ?D_LOG("Body is is ~p~n", [wrq:req_body(ReqData)]),
      Data = [{list_to_atom(binary_to_list(K)), V} || {K, V} <- (mochijson:binary_decoder([{object_hook, fun peel/1}]))(wrq:req_body(ReqData))],
      ?D_LOG("Data is is ~p~n", [Data]),
      case wrq:path_info(name, ReqData) of
          undefined ->
  	    case orddict:find(name, Data) of
  