anchor.diff:              Cs = [{'CommonPrefixes',
                      [
                       % WTH? The pattern [Common | _] can never match the type []
  -                    {'Prefix', [Common]} 
  +                    {'Prefix', [Common]}
                      ]} || Common <- Commons],
               Get = fun(Name) -> case proplists:get_value(Name, Opts) of
                                      undefined -> [];
  
positive.code:     LocalCtx = LocalCtx0#key_context{bucket=Bucket},
      {false, RD, Ctx#context{local_context=LocalCtx}}.
  
  -spec authorize(#wm_reqdata{}, #context{}) -> 
                         {boolean() | {halt, term()}, #wm_reqdata{}, #context{}}.
  
  authorize(RD, Ctx=#context{riakc_pid=RiakcPid, local_context=LocalCtx}) ->
  
negative.code:     riak_cs_mp_utils:make_content_types_accepted(RD, Ctx).
  
  make_list_mp_uploads_opts(RD) ->
      Ps = [{"delimiter", delimiter},
            {"key-marker", key_marker},
            {"max-uploads", max_uploads},
            {"prefix", prefix},
            {"upload-id-marker", upload_id_marker}
           ],
      lists:append([case wrq:get_qs_value(Name, RD) of
                        undefined -> [];
                        X         -> [{PropName, X}]
                    end || {Name, PropName} <- Ps]).
  