anchor.diff:              | _ -> failwithf "Unknown content type: %A." x.ContentType }
   
   
  -    and parseParticle (ctx: ParsingContext) (par: XmlSchemaParticle) =  
  +    and parseParticle ctx (par: XmlSchemaParticle) =  
   
           let occurs = par.MinOccurs, par.MaxOccurs
   
  
positive.code: 
          let cache, _ = Caching.createInternetFileCache "XmlSchema" (System.TimeSpan.FromMinutes 30.0)
  
          let uri = // TODO improve this
              if resolutionFolder = "" then ""
              elif resolutionFolder.EndsWith "/" || resolutionFolder.EndsWith "\\"
              then resolutionFolder
  
negative.code:                     | [] -> InferedType.Null
                      | items ->
                          let tags = items |> List.map (fst >> getRecordTag)
                          let types =
                              items
                              |> List.map (fun (e, m) -> m, inferElementType ctx e)
                              |> Seq.zip tags 
                              |> Map.ofSeq
                          InferedType.Collection(tags, types)
                  result
              if body.Type = InferedType.Null then attrs else body::attrs
         
      // collects element definitions in a particle
      and getElements ctx parentMultiplicity = function
          | XsdParticle.Element(occ, elm) -> 
              let mult = combineMultiplicity(parentMultiplicity, getMultiplicity occ)
              match elm.IsAbstract, elm.SubstitutionGroup with
  