anchor.diff:              let! res = getObjMetadata path
               return res.ContentLength
           }
  -        member __.GetLastModifiedTime(path, isDirectory) = failwith "Not implemented yet"
  +
  +        member __.GetLastModifiedTime(path, isDirectory) = 
  +            failwith "Not implemented yet"
                   
           member __.IsPathRooted(path) = path.Contains "/" |> not
           
  
positive.code:         }
  
          member __.DefaultDirectory = defaultDir
  
          member __.DeleteDirectory(directory, recursiveDelete) = async {
              
  //            let req = DeleteObjectsRequest(BucketName = bucketName)
  //            req.Objects.Add(new KeyVersion())
  //
  //            // TODO : handle partial failures
  //            do! account.S3Client.DeleteObjectsAsync(req) 
  //                |> Async.AwaitTaskCorrect
  //                |> Async.Ignore
              return ()
          }
  
          member __.EnumerateDirectories(directory) = 
  
negative.code:             return Seq.toArray results
          }
  
      interface ICloudFileStore with
          member __.Name = "MBrace.Aws.Store.S3FileStore"
          member __.Id = sprintf "arn:aws:s3::%s" bucketName
  