23 lines
622 B
Plaintext
23 lines
622 B
Plaintext
(load "redis.carp")
|
|
|
|
(defn main []
|
|
(match (Redis.open "127.0.0.1")
|
|
(Result.Success r)
|
|
(do
|
|
(Redis.send &r "PING" [])
|
|
(println* &(Redis.read &r))
|
|
|
|
(Redis.send &r "PING" [(Box (to-redis @"hiiiii"))])
|
|
(println* &(Redis.read &r))
|
|
|
|
(println* &(Redis.echo &r @"hi"))
|
|
|
|
(println* &(Redis.rpush &r @"mylist" @"1"))
|
|
(println* &(Redis.rpush &r @"mylist" @"2"))
|
|
(println* &(Redis.lrange &r @"mylist" @"-100" @"100"))
|
|
|
|
(println* &(Redis.latency-help &r))
|
|
|
|
(Redis.close r))
|
|
(Result.Error err) (IO.errorln &err)))
|