anchor.diff:                Id = id
                 Query = String.Empty }
       
  -    let serializer (stream, entry : T) = Serializer.Serialize(stream, entry)
  +    let msgPackSerializer = SerializationContext.Default.GetSerializer<T>()
  +    let serializer (stream, entry : T) = msgPackSerializer.Pack(stream, entry)
       
       type TxWriter(path : string, gen : int64) = 
           let newline = Encoding.ASCII.GetBytes(Environment.NewLine)
  
positive.code:     | Faulted = 7
  
  module TransacationLog = 
      open ProtoBuf
      open System.Text
      
      type Operation = 
  
negative.code:         let searcherManager = new SearcherManager(directory, new SearcherFactory())
          let modifyIndex = DirectoryReader.Open(iw, true) |> getMaxModifyIndex
          let logPath = basePath +/ "shards" +/ shardNumber.ToString() +/ "txlogs"
          Directory.CreateDirectory(logPath) |> ignore
  
          let state = 
              { IndexWriter = iw
                TrackingIndexWriter = trackingWriter
  