anchor.diff:          }
   
           member __.DefaultDirectory = defaultDir
  -        member this.DeleteDirectory(directory, recursiveDelete) = async {
  +
  +        member __.DeleteDirectory(directory, recursiveDelete) = async {
               
   //            let req = DeleteObjectsRequest(BucketName = bucketName)
   //            req.Objects.Add(new KeyVersion())
  
positive.code:         }
          
          member __.GetFileSize(path) = async {
              let req = GetObjectMetadataRequest(BucketName = bucketName, Key = path)
              let! res = account.S3Client.GetObjectMetadataAsync(req)
                         |> Async.AwaitTaskCorrect
              return res.ContentLength
          }
          member __.GetLastModifiedTime(path, isDirectory) = failwith "Not implemented yet"
  
negative.code: 
      [<DataMember(Name = "DefaultDir")>]
      let defaultDir = defaultDir
      
      let getObjMetadata path = async {
          let req = GetObjectMetadataRequest(BucketName = bucketName, Key = path)
          return! account.S3Client.GetObjectMetadataAsync(req)
                  |> Async.AwaitTaskCorrect
      }
  
      let listObjects prefix nextMarker = async {
          let req = ListObjectsRequest(
                      BucketName = bucketName,
                      Prefix     = prefix,
                      Delimiter  = "/",
                      Marker     = nextMarker)
          return! account.S3Client.ListObjectsAsync(req) 
                  |> Async.AwaitTaskCorrect
      }
  
      let enumerateDir directory map = async {
              let prefix  = normalizeDirPath directory
              let results = ResizeArray<string>()            
  
              let rec aux nextMarker = async {
                  let! res = listObjects prefix nextMarker
                  map res |> results.AddRange
                  if res.NextMarker = null then return ()
                  else return! aux res.NextMarker
              }
  
              do! aux null
              return Seq.toArray results
          }
  
  //    let enumerateFiles directory = async {
  //        let 
  