       type -> h(set_metadata(:'content-type', type)); d(v3d4)
     end
   end
-  ## Accept-Language exists?
+  @doc "Accept-Language exists?"
   decision v3d4, do:
     h(decision_test(h(get_header_val("accept-language")),nil, :v3e5, :v3d5))
-  ## Acceptable Language available? %% WMACH-46 (do this as proper conneg)
+  @doc "Acceptable Language available? %% WMACH-46 (do this as proper conneg)"
   decision v3d5, do:
     h(decision_test(resource_call(:language_available), true, :v3e5, 406))
-  ## Accept-Charset exists?
+  @doc "Accept-Charset exists?"
   decision v3e5 do
     case h(get_header_val("accept-charset")) do
       nil -> h(decision_test(h(choose_charset("*")),nil, 406, :v3f6))
       _ -> d(v3e6)
     end
   end
-  ## Acceptable Charset available?
+  @doc "Acceptable Charset available?"
   decision v3e6, do:
     h(decision_test(h(choose_charset(h(get_header_val("accept-charset")))),nil, 406, :v3f6))
-  ## Accept-Encoding exists?
-  ## also, set content-type header here, now that charset is chosen)
+  @doc """
+  Accept-Encoding exists?
+  also, set content-type header here, now that charset is chosen)
+  """
   decision v3f6 do
     {type,subtype,params} = h(get_metadata(:'content-type'))
     params = (char=h(get_metadata(:'chosen-charset'))) && Dict.put(params,:charset,char) || params

  
  decision v3o18b, do:
    h(decision_test(resource_call(:multiple_choices), true, 300, 200))
  ## Response includes an entity?
  decision v3o20, do:
    h(decision_test(h(has_resp_body), true, :v3o18, 204))
  ## Conflict?
  decision v3p3 do
    if resource_call(:is_conflict) do
      d(respond(409))

    end
  end
  
  @doc "Content-MD5 present?"
  decision v3b9, do:
    h(decision_test(h(get_header_val("content-md5")), nil, :v3b9b, :v3b9a))
  @doc "Content-MD5 valid?"
  decision v3b9a do
    case resource_call(:validate_content_checksum) do
      :not_validated ->
