anchor.diff:  
   normalize_name(Name) when is_list(Name) -> bin_to_lower(list_to_binary(Name));
   normalize_name(Name) when is_binary(Name) -> bin_to_lower(Name).
  +
  +%% @doc This function takes a list of records and normalizes the name. This ensures that the record
  +%% being looked up is found.
  +%% @end
  +-spec normalize_records([dns:rr()]) -> [dns:rr()].
  +normalize_records(Records) ->
  +    normalize_records(Records, []).
  +
  +normalize_records([], Acc) ->
  +    erldns_log:info("Returning ~p", [Acc]),
  +    Acc;
  +normalize_records([#dns_rr{name = Name} = H | Tail], Acc) ->
  +    normalize_records(Tail, [H#dns_rr{name = normalize_name(Name)} | Acc]).
   
   %% @doc Takes a binary messages, and transforms it to lower case. Self said!
   -spec bin_to_lower(Bin :: binary()) -> binary().
  
positive.code: -spec put_zone({binary(), binary(), [#dns_rr{}]}) -> ok | {error, Reason :: term()}.
  put_zone({Name, Sha, Records, AllowNotifyList, AllowTransferList, AllowUpdateList, AlsoNotifyList,
            NotifySourceIP}) ->
      erldns_storage:insert(zones,
                            {normalize_name(Name), build_zone(Name, AllowNotifyList, AllowTransferList,
                                                              AllowUpdateList, AlsoNotifyList,
                                                              NotifySourceIP, Sha, Records)}).
  
  %% @doc Put a zone into the cache and wait for a response.
  -spec put_zone(binary(), #zone{}) -> ok | {error, Reason :: term()}.
  put_zone(Name, #zone{} = Zone) ->
      erldns_storage:insert(zones, {normalize_name(Name), Zone}).
  
  %% @doc Put a zone into the cache without waiting for a response.
  -spec put_zone_async({binary(), binary(), [#dns_rr{}]}) -> ok | {error, Reason :: term()}.
  put_zone_async({Name, Sha, Records, AllowNotifyList, AllowTransferList, AllowUpdateList, AlsoNotifyList,
                  NotifySourceIP}) ->
      erldns_storage:insert(zones,
                            {normalize_name(Name), build_zone(Name, AllowNotifyList,AllowTransferList,
                                                              AllowUpdateList, AlsoNotifyList,
                                                              NotifySourceIP, Sha, Records)}).
  
  %% @doc Put a zone into the cache without waiting for a response.
  -spec put_zone_async(binary(), #zone{}) -> ok | {error, Reason :: term()}.
  put_zone_async(Name, Zone) ->
      erldns_storage:insert(zones, {normalize_name(Name), Zone}).
  
  %% @doc Remove a zone from the cache.
  -spec delete_zone(binary()) -> ok | {error, term()}.
  
negative.code: 
  timestamp() ->
      {TM, TS, _} = os:timestamp(),
      (TM * 1000000) + TS.
  