anchor.diff:      /// Replay all the uncommitted transactions from the logs
       let replayTransactionLogs (indexWriter : IndexWriter) = 
           let replayShardTransaction (shardWriter : ShardWriter) = 
  -            shardWriter.Status <- ShardStatus.Recovering
  -            // Read logs for the generation 1 higher than the last committed generation as
  -            // these represents the records which are not committed
  -            let logEntries = 
  -                shardWriter.TxWriter.ReadLog(shardWriter.Generation.Value) // TODO: Find a more memory efficient way of sorting the transaction log file
  -                                                                           |> Seq.sortBy (fun l -> l.TransactionId)
  -            for entry in logEntries do
  -                match entry.Operation with
  -                | TxOperation.Create | TxOperation.Update -> 
  -                    let doc = 
  -                        indexWriter.Template.Value |> DocumentTemplate.updateTempate entry.Document entry.TransactionId
  -                    shardWriter |> ShardWriter.updateDocument (entry.Id, indexWriter.GetSchemaName(IdField.Name), doc)
  -                | TxOperation.Delete -> 
  -                    shardWriter |> ShardWriter.deleteDocument entry.Id (indexWriter.GetSchemaName(IdField.Name))
  -                | _ -> ()
  +//            shardWriter.Status <- ShardStatus.Recovering
  +//            // Read logs for the generation 1 higher than the last committed generation as
  +//            // these represents the records which are not committed
  +//            let logEntries = 
  +//                shardWriter.TxWriter.ReadLog(shardWriter.Generation.Value) // TODO: Find a more memory efficient way of sorting the transaction log file
  +//                                                                           |> Seq.sortBy (fun l -> l.TransactionId)
  +//            for entry in logEntries do
  +//                match entry.Operation with
  +//                | TxOperation.Create | TxOperation.Update -> 
  +//                    let doc = 
  +//                        indexWriter.Template.Value |> DocumentTemplate.updateTempate entry.Document entry.TransactionId
  +//                    shardWriter |> ShardWriter.updateDocument (entry.Id, indexWriter.GetSchemaName(IdField.Name), doc)
  +//                | TxOperation.Delete -> 
  +//                    shardWriter |> ShardWriter.deleteDocument entry.Id (indexWriter.GetSchemaName(IdField.Name))
  +//                | _ -> ()
               // Just refresh the index so that the changes are picked up
               // in subsequent searches. We can also commit here but it will
               // introduce blank commits in case there are no logs to replay.
  
positive.code:                 |> boolToResult UnableToUpdateMemory
              let txId = s.ShardWriters.[shardNo].GetNextIndex()
              // Create new binary document
              s.Settings.Fields
              let doc = s.Template.Value |> DocumentTemplate.updateTempate document txId
              if addToTxLog then 
                  let opCode = 
                      if create then TxOperation.Create
  
negative.code:         let caches = shardWriters |> Array.map (fun x -> VersionCache.create (settings, x))
          
          let indexWriter = 
              { Template = new DefaultObjectPool<DocumentTemplate>(policy)
                ShardWriters = shardWriters
                Caches = caches
                Settings = settings
  