anchor.diff:      /// Specialized reader function for string arrays
       let stringArrayReader attr xml =
           let ctor = EmptyConstructor(fun () -> box String.Empty)
  -        let info = Some <| emptyTypeBuilder typeof<string> ctor
  +        let info = emptyTypeBuilder typeof<string> ctor
           listReader<string> info ValueTypeDeserializer.stringReader attr xml |> List.toArray |> box
   
       /// Specialized reader function for integer arrays
       let intArrayReader attr xml =
           let ctor = EmptyConstructor(fun () -> box 0)
  -        let info = Some <| emptyTypeBuilder typeof<int> ctor
  +        let info = emptyTypeBuilder typeof<int> ctor
           let intReader = Int32.Parse >> box |> ValueTypeDeserializer.buildValueReader
           listReader<int> info intReader attr xml |> List.toArray |> box
   
  
positive.code:     /// generation failed on a tuple item with an exception
      let inline deserializeErrorTuple name (t : Type) ex =
          deserializeError "tuple item" name t ex
  
      /// Apply attribute values if necessary
      let setAttributes (builder : TypeBuilderInfo) attrs inst =
  
negative.code:         else
              eatSomeTag info |> fst, []
  
      let parseList<'a> (elemInfo : TypeBuilderInfo) (elemParser : ReaderFunc) attr (info : ParserInfo) =
          let list = List<'a>()
          let rec inner() =
              if not info.IsEnd then
  