anchor.diff:      let createBlobFile connectionString containerName path = 
           let details = connectionString, containerName, path
           match path with
  -        | Text -> new TextFile(details) :> BlobFile
           | XML -> new XmlFile(details) :> BlobFile
  -        | Binary -> new BlobFile(details)
  +        | Binary | Text -> new BlobFile(details)
       
       let createContainer connectionString containerName = BlobContainer(connectionString, containerName)
       let createBlobFolder connectionString containerName path = BlobFolder(connectionString, containerName, path)
positive.code: module ProvidedTypes =
      let generateTypes() = 
          [ ProvidedTypeDefinition("BlobFile", Some typeof<BlobFile>, HideObjectMethods = true)
            ProvidedTypeDefinition("TextFile", Some typeof<TextFile>, HideObjectMethods = true)
            ProvidedTypeDefinition("XmlFile", Some typeof<XmlFile>, HideObjectMethods = true) ]
  
  // Builder methods to construct blobs etc..
  
negative.code:     member x.Size with get () = blobRef.FetchAttributes()
                                  blobRef.Properties.Length
  
      /// Reads this file as a string.
      member x.ReadAsString() = blobRef.DownloadText()
      
  