anchor.diff:                  |> WithInline "jQuery($0)"
                   |> WithComment "Binds a function to be executed when the DOM has finished loading."
   
  -                "ajax" => AjaxConfig ^-> JqXHR
  -                "ajax" => T<string> * AjaxConfig ^-> JqXHR
  -
  -
  -                "ajaxSetup" => AjaxConfig ^-> T<unit>
  +                "ajax" => AjaxSettings ^-> JqXHR
  +                "ajax" => T<string> * AjaxSettings ^-> JqXHR
  +
  +
  +                "ajaxSetup" => AjaxSettings ^-> T<unit>
   
                   "contains" =>
                       T<Dom.Element>?container * T<Dom.Node>?contained ^-> T<bool>
  
positive.code:     let JqXHR = Type.New ()
  
      /// Ajax configuration
      let AjaxConfig = Type.New()
      let AjaxConfigClass =
          Pattern.Config "AjaxConfig" {
              Required = []
              Optional =
                  [
                      "accepts" , T<obj>
                      "async" , T<bool>
                      "beforeSend" ,  JqXHR * !? AjaxConfig ^-> T<bool>
                      "cache" , T<bool>
                      // 1.5 allows _also_ an array of functions. We can't have both so the array version is 
                      // preferred.
  
negative.code:                     "xhr" , T<unit> ^-> XmlHttpRequest
                  ]
          }
          |=> AjaxSettings
  
      let StringMap = Type.New()
  
  