test_fs_redis.fs

open System
open FreeRedis

// Define a function to construct a message to print
let from whom = sprintf "from %s" whom

let inline (|>!) x sideEffect =
    do sideEffect x
    x

module Redis =
    let get key (client: RedisClient) = client.Get(key)
    let set key value (client: RedisClient) = client.Set(key, value)

[<EntryPoint>]
let main argv =
    let cli =
        "127.0.0.1:6379,password=foobared,defaultDatabase=0"
        |> ConnectionStringBuilder.Parse
        |> (fun c -> new RedisClient(c))


    cli.Set("foo", 100)
    let value : string = cli.Get("foo")
    printfn "%s" value
    printfn "%A" (cli.Get("foo"))


    cli
    |> (fun x ->
        x |> Redis.set "name" "itang"
        x)
    |> Redis.get "name"
    |> printfn "name: %s"


    cli |>! Redis.set "name" "tqibm"
    |> Redis.get "name"
    |> printfn "%s"

    cli.Dispose()
    0 // return an integer exit code