anchor.diff:    {reply, ok, State}.
   
   handle_cast({delete, Name}, State) ->
  -  erldns_storage:delete(zones, normalize_name(Name)),
  +  erldns_storage:delete(zones, erldns:normalize_name(Name)),
     {noreply, State};
   
   handle_cast(Message, State) ->
  
positive.code:   end.
  
  find_zone_in_cache(Qname) ->
    Name = normalize_name(Qname),
    find_zone_in_cache(Name, dns:dname_to_labels(Name)).
  
  find_zone_in_cache(_Name, []) ->
  
negative.code: %% This function will build the necessary Zone record before interting.
  -spec put_zone({binary(), binary(), [dns:rr()], [erldns:keyset()]}) -> ok.
  put_zone({Name, Sha, Records, Keys}) ->
    put_zone(erldns:normalize_name(Name), build_zone(Name, Sha, Records, Keys)).
  
  %% @doc Put a zone into the cache and wait for a response.
  -spec put_zone(binary(), erldns:zone()) -> ok.
  put_zone(Name, Zone) ->
    erldns_storage:insert(zones, {erldns:normalize_name(Name), sign_zone(Zone)}),
    ok.
  
  %% @doc Remove a zone from the cache without waiting for a response.
  