ASP.Net F# Redis cache

Question

Startup.fs 添加 redis cache 配置：

namespace fsharpweb

open fsharpweb.Middlewares
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open Microsoft.Extensions.Configuration
open Microsoft.Extensions.DependencyInjection
open Microsoft.Extensions.Hosting

type Startup(configuration: IConfiguration) =
    member _.Configuration = configuration

    // This method gets called by the runtime. Use this method to add services to the container.
    member _.ConfigureServices(services: IServiceCollection) =
        
        services.AddStackExchangeRedisCache(
            fun opts ->
            opts.Configuration <- "localhost:6379"
            opts.InstanceName <- "sample"
        ) |> ignore
        // Add framework services.
        services.AddControllers() |> ignore

    // This method gets called by the runtime. Use this method to configure the HTTP request pipeline.
    member _.Configure(app: IApplicationBuilder, env: IWebHostEnvironment) =
        if (env.IsDevelopment()) then
            app.UseDeveloperExceptionPage() |> ignore
        app.UseRouting()
           .UseMiddleware<LogMiddleWare>()
           .UseAuthorization()
           .UseEndpoints(fun endpoints ->
                endpoints.MapControllers() |> ignore
            ) |> ignore

Cache 操作：

namespace fsharpweb.Controllers

open System
open fsharpweb.FormData
open Microsoft.AspNetCore.Mvc
open Microsoft.Extensions.Logging
open Microsoft.Extensions.Caching.Distributed

[<ApiController>]
[<Route("/")>]
type HomeController (logger : ILogger<HomeController>, cache: IDistributedCache) =
    inherit ControllerBase()

    [<HttpGet>]
    member _.Get() =
        "hello"
        
    [<HttpPost>]
    [<Route("/users/{id}")>]
    member _.Post(id: int, [<FromBody>] body: SignUp) = async {
        let opts = DistributedCacheEntryOptions()
        opts.AbsoluteExpiration <-  DateTimeOffset.Now.AddHours(1.0)
        do! cache.SetStringAsync("kkkk", "hello", opts) |> Async.AwaitTask
        let! data = cache.GetStringAsync("name") |> Async.AwaitTask
        printfn $"{data}"
        return OkObjectResult("hello")
    }

ASP.Net 在 redis 里面实际存储的类型为 Hash 类型，全名 key 为 InstanceName + key 名称，查看 key 具体存储：

127.0.0.1:6379> hgetall samplekkkk
1) "absexp"
2) "-1"
3) "sldexp"
4) "-1"
5) "data"
6) "hello"

值：

127.0.0.1:6379> hvals samplekkkk
1) "-1"
2) "-1"
3) "hello"

查看 TTL：

127.0.0.1:6379> ttl samplekkkk
(integer) 3579