anchor.diff:          member __.Name = "MBrace.Aws.Store.S3FileStore"
           member __.Id = sprintf "arn:aws:s3::%s" bucketName
           member __.IsCaseSensitiveFileSystem = false
  -
  -        member __.BeginRead(path) = async {
  -            return! 
  -                account.S3Client.GetObjectStreamAsync(
  -                    bucketName, 
  -                    path, 
  -                    Dictionary<string, obj>()) 
  -                |> Async.AwaitTaskCorrect
  -        }
  -
  -        member __.BeginWrite(path) = failwith "Not implemented yet"
  -
  +        
           //#region Directory Operations
           
           member __.RootDirectory = "/"
  
positive.code:                 |> Async.Ignore
          }
          
          member __.DownloadToLocalFile(cloudSourcePath, localTargetPath) = failwith "Not implemented yet"
          member __.DownloadToStream(path, stream) = failwith "Not implemented yet"
          member __.EnumerateDirectories(directory) = failwith "Not implemented yet"
          member __.EnumerateFiles(directory) = failwith "Not implemented yet"
          member __.FileExists(path) = failwith "Not implemented yet"        
          member __.GetFileName(path) = Path.GetFileName(path)
          member __.GetFileSize(path) = failwith "Not implemented yet"
          member __.GetLastModifiedTime(path, isDirectory) = failwith "Not implemented yet"
                  
          member x.IsPathRooted(path) = path.Contains "/" |> not
          
          member x.ReadETag(path, etag) = failwith "Not implemented yet"
          
          member x.TryGetETag(path) = failwith "Not implemented yet"
          member x.UploadFromLocalFile(localSourcePath, cloudTargetPath) = failwith "Not implemented yet"
          member x.UploadFromStream(path, stream) = failwith "Not implemented yet"        
          member x.WriteETag(path, writer) = failwith "Not implemented yet"
  
          member __.WithDefaultDirectory(directory) = 
              new S3FileStore(account, bucketName, directory) :> _
negative.code: //            do! account.S3Client.DeleteObjectsAsync(req) 
  //                |> Async.AwaitTaskCorrect
  //                |> Async.Ignore
              return ()
          }
  
          member __.EnumerateDirectories(directory) = failwith "Not implemented yet"
          member __.EnumerateFiles(directory) = failwith "Not implemented yet"
  
          //#endregion
  
          //#region File Operations
  
          member __.GetFileName(path) = Path.GetFileName(path)
  
          member __.DeleteFile(path) = async {
              let req = DeleteObjectRequest(BucketName = bucketName, Key = path)
  