anchor.diff:                  match builder.Attrs.TryGetValue k with
                   | true, prop ->
                       try
  -                        prop.Setter.Invoke(inst, v)
  +                        prop.Setter.Invoke(inst, prop.Reader v)
                       with ex ->
                           System.Diagnostics.Trace.WriteLine(
                               String.Format("Failed to set attribute '{0}': {1}", k, ex))
  
positive.code:             |> Some
          else None
  
      let getValueReader (t : Type) = fun () ->
          let reader =
              match Type.GetTypeCode(t) with
              | TypeCode.Boolean -> Boolean.Parse >> box |> Some
              | TypeCode.Byte -> Byte.Parse >> box |> Some
              | TypeCode.Int16 -> Int16.Parse >> box |> Some
              | TypeCode.Int32 -> Int32.Parse >> box |> Some
              | TypeCode.Int64 -> Int64.Parse >> box |> Some
              | TypeCode.Char -> Char.Parse >> box |> Some
              | TypeCode.DateTime -> DateTime.Parse >> box |> Some
              | TypeCode.Decimal -> Decimal.Parse >> box |> Some
              | TypeCode.Double -> Double.Parse >> box |> Some
              | TypeCode.SByte -> SByte.Parse >> box |> Some
              | TypeCode.Single -> Single.Parse >> box |> Some
              | TypeCode.UInt16 -> UInt16.Parse >> box |> Some
              | TypeCode.UInt32 -> UInt32.Parse >> box |> Some
              | TypeCode.UInt64 -> UInt64.Parse >> box |> Some
              | TypeCode.String -> box |> Some
              | _ -> None
          match reader with
          | Some r -> Some(buildValueReader r)
          | _ -> None
  
  
negative.code: 
      /// Determine the property and its PropertyReaderInfo in case
      /// XML attributes are supported
      and determinePropertyWithAttribute (pDict : Dictionary<string, PropertyReaderInfo>, aDict : Dictionary<string, AttributeReaderInfo>) pi =
          match getAttribute<SharpXml.Common.XmlAttributeAttribute> pi with
          | Some attr ->
              let name = if notWhite attr.Name then attr.Name else pi.Name
              match getAttributeReaderInfo pi with
              | Some info -> aDict.Add(name, info)
              | _ -> ()
          | _ ->
              let name = getPropertyName pi
              pDict.Add(name, buildReaderInfo pi)
  