anchor.diff:          member x.DisposeAllValues(): Async<unit> = async {
               let config = getConfig()
               let! files = config.Global.MainStore.EnumerateFiles config.Global.MainStore.DefaultDirectory
  +            let cvSuffix = getPersistFileSuffix config.UsesCompression
               return!
                   files
  -                |> Seq.filter (fun f -> f.EndsWith persistFileSuffix)
  +                |> Seq.filter (fun f -> f.EndsWith cvSuffix)
                   |> Seq.map config.Global.MainStore.DeleteFile
                   |> Async.Parallel
                   |> Async.Ignore
  
positive.code:                 let! value = async {
                      match localCached with
                      | None -> 
                          let! globalValue = config.Global.MainStore.TryDeserialize<'T>(config.Global.Serializer, hash)
                          match globalValue with
                          // value not found in any storage level
                          | None -> return raise <| new ObjectDisposedException(hash.Id, "Could not dereference CloudValue from store.")
  
negative.code:             LocalCache : InMemoryCache
          }
      with
          member c.UsesCompression = c.Global.CompressionLevel <> CompressionLevel.NoCompression
  
          static member Init(config : StoreCloudValueConfiguration) =
              {
                  Global = config
  