anchor.diff:                  let! localCached = async {
                       match config.LocalStore with
                       | Some ls -> 
  -                        try return! ls.TryDeserialize<'T>(config.Global.Serializer, hash)
  +                        try return! ls.TryDeserialize<'T>(config.Global.Serializer, hash, config.Global.CompressionLevel)
                           with _ -> return None
                       | _ -> return None
                   }
  
positive.code:                             match config.LocalStore with
                              | Some ls -> 
                                  let header = CloudValueHeader.FromValue(gv, hash, level)
                                  let _ = Async.StartAsTask(ls.Serialize<'T>(config.Global.Serializer, header, gv, overwrite = true))
                                  ()
  
                              | _ -> ()
  
negative.code:         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 cvSuffix)
                  |> Seq.map config.Global.MainStore.DeleteFile
                  |> Async.Parallel
                  |> Async.Ignore
  