anchor.diff:      | UnionCaseField (uci, f, true)
           when (uci.GetCustomAttributes(typeof<WildcardAttribute>) |> Array.isEmpty |> not) ->
           tryGetWildcardType f
  -    | _ -> None
  +    | _ -> Wildcard.None
   
   let (|Enum|Array|List|Tuple|Record|Union|Other|) (t: System.Type) =
       if t.IsEnum then
  
positive.code:         |> Some
      else None
  
  let parseWildcard (eT: System.Type) (eD: D) (sP: ISequenceProcessor) : D =
      if eD.ReadsJson() then raise (NoFormatError eT)
      D.Make(false, Set.empty, fun p ->
          let data = System.Collections.ArrayList()
          let rec loop() =
              match eD.Decode p with
              | Some (Success x) ->
                  data.Add(x) |> ignore
                  loop()
              | None -> Some (Success (box (sP.FromSequence (data.ToArray()))))
              | err -> err
          loop())
  
  let parseField getD (f: Field) =
      match getJsonParser f with
  
negative.code:         | Some p -> p
          | None ->
              match tryGetWildcardType f with
              | Wildcard.Seq (eT, sP) -> parseWildcardSeq eT (getD eT) sP
              | Wildcard.String -> parseWildcardString (getD typeof<string>)
              | Wildcard.None ->
                  match tryParsePrimitiveField f false with
                  | Some parse ->
                      D.Make(false, Set.empty, fun (p: Parameters) ->
  