diff --git a/docs/RESP.html b/docs/RESP.html index 9c1f215..54e63b7 100644 --- a/docs/RESP.html +++ b/docs/RESP.html @@ -4,13 +4,13 @@ - +

- (λ [String] RESP) + (Fn [String] RESP)

@@ -93,7 +93,7 @@ the interface to-redis, the signature of which is (Fn [a] RES instantiate

- (λ [Int] RESP) + (Fn [Int] RESP)

@@ -113,7 +113,7 @@ the interface to-redis, the signature of which is (Fn [a] RES instantiate

- (λ [] RESP) + (Fn [] RESP)

@@ -133,7 +133,7 @@ the interface to-redis, the signature of which is (Fn [a] RES instantiate

- (λ [String] RESP) + (Fn [String] RESP)

@@ -153,7 +153,7 @@ the interface to-redis, the signature of which is (Fn [a] RES instantiate

- (λ [(Ref RESP a)] RESP) + (Fn [(Ref RESP a)] RESP)

@@ -173,7 +173,7 @@ the interface to-redis, the signature of which is (Fn [a] RES defn

- (λ [(Ref String a)] (Result RESP String)) + (Fn [(Ref String a)] (Result RESP String)) 

                     (from-string s)
@@ -193,7 +193,7 @@ the interface to-redis, the signature of which is (Fn [a] RES
                     instantiate
                 
                 

-                    (λ [(Ref RESP a)] Int)
+                    (Fn [(Ref RESP a)] Int)
                 

                 
                     
@@ -213,7 +213,7 @@ the interface to-redis, the signature of which is (Fn [a] RES
                     instantiate
                 
                 

-                    (λ [(Ref RESP a)] String)
+                    (Fn [(Ref RESP a)] String)
                 

                 
                     
@@ -233,7 +233,7 @@ the interface to-redis, the signature of which is (Fn [a] RES
                     defn
                 
                 

-                    (λ [(Ref RESP a)] String)
+                    (Fn [(Ref RESP a)] String)
                 

                 
                     (str r)
diff --git a/docs/Redis.html b/docs/Redis.html
index 71754de..2bbe19f 100644
--- a/docs/Redis.html
+++ b/docs/Redis.html
@@ -4,13 +4,13 @@
     
         
         
-        
+        
     
     
         

             
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (auth r password)
@@ -93,7 +93,7 @@ else).

                     defn
                 

                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (bgrewriteaof r)
@@ -114,7 +114,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (bgsave r)
@@ -135,7 +135,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (bitcount r key)
@@ -156,7 +156,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (bitfield r key)
@@ -177,7 +177,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (bitop r operation destkey key)
@@ -198,7 +198,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (bitpos r key bit)
@@ -219,7 +219,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (blpop r key timeout)
@@ -240,7 +240,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (brpop r key timeout)
@@ -261,7 +261,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (brpoplpush r source destination timeout)
@@ -282,7 +282,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (bzpopmax r key timeout)
@@ -303,7 +303,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (bzpopmin r key timeout)
@@ -324,7 +324,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (client-getname r)
@@ -345,7 +345,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (client-id r)
@@ -366,7 +366,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (client-kill r)
@@ -387,7 +387,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (client-list r)
@@ -408,7 +408,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (client-pause r timeout)
@@ -429,7 +429,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (client-reply r)
@@ -450,7 +450,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (client-setname r connection-name)
@@ -471,7 +471,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (client-unblock r client-id)
@@ -492,7 +492,7 @@ else).

                     defn
                 
                 

-                    (λ [Redis] ())
+                    (Fn [Redis] ())
                 

                 
                     (close r)
@@ -512,7 +512,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-addslots r slot)
@@ -533,7 +533,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-bumpepoch r)
@@ -554,7 +554,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-count-failure-reports r node-id)
@@ -575,7 +575,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-countkeysinslot r slot)
@@ -596,7 +596,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-delslots r slot)
@@ -617,7 +617,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-failover r)
@@ -638,7 +638,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-flushslots r)
@@ -659,7 +659,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-forget r node-id)
@@ -680,7 +680,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (cluster-getkeysinslot r slot count)
@@ -701,7 +701,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-info r)
@@ -722,7 +722,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-keyslot r key)
@@ -743,7 +743,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (cluster-meet r ip port)
@@ -764,7 +764,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-myid r)
@@ -785,7 +785,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-nodes r)
@@ -806,7 +806,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-replicas r node-id)
@@ -827,7 +827,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-replicate r node-id)
@@ -848,7 +848,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-reset r)
@@ -869,7 +869,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-saveconfig r)
@@ -890,7 +890,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-set-config-epoch r config-epoch)
@@ -911,7 +911,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-setslot r slot)
@@ -932,7 +932,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (cluster-slaves r node-id)
@@ -953,7 +953,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (cluster-slots r)
@@ -974,7 +974,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (command r)
@@ -995,7 +995,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (command-count r)
@@ -1016,7 +1016,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (command-getkeys r)
@@ -1037,7 +1037,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (command-info r command-name)
@@ -1058,7 +1058,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (config-get r parameter)
@@ -1079,7 +1079,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (config-resetstat r)
@@ -1100,7 +1100,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (config-rewrite r)
@@ -1121,7 +1121,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (config-set r parameter value)
@@ -1142,7 +1142,7 @@ else).

                     instantiate
                 
                 

-                    (λ [(Ref Redis a)] Redis)
+                    (Fn [(Ref Redis a)] Redis)
                 

                 
                     
@@ -1162,7 +1162,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (dbsize r)
@@ -1183,7 +1183,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (debug-object r key)
@@ -1204,7 +1204,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (debug-segfault r)
@@ -1225,7 +1225,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (decr r key)
@@ -1246,7 +1246,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (decrby r key decrement)
@@ -1267,7 +1267,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (del r key)
@@ -1288,7 +1288,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (discard r)
@@ -1309,7 +1309,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (dump r key)
@@ -1330,7 +1330,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (echo r message)
@@ -1351,7 +1351,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (eval r script numkeys key)
@@ -1372,7 +1372,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (evalsha r sha1 numkeys key)
@@ -1393,7 +1393,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (exec r)
@@ -1414,7 +1414,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (exists r key)
@@ -1435,7 +1435,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (expire r key seconds)
@@ -1456,7 +1456,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (expireat r key timestamp)
@@ -1477,7 +1477,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (flushall r)
@@ -1498,7 +1498,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (flushdb r)
@@ -1519,7 +1519,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d, e] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d, e] (Result RESP String))
                 

                 
                     (geoadd r key longitude latitude member)
@@ -1540,7 +1540,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (geodist r key member1 member2)
@@ -1561,7 +1561,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (geohash r key member)
@@ -1582,7 +1582,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (geopos r key member)
@@ -1603,7 +1603,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d, e] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d, e] (Result RESP String))
                 

                 
                     (georadius r key longitude latitude radius)
@@ -1624,7 +1624,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (georadiusbymember r key member radius)
@@ -1645,7 +1645,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (get r key)
@@ -1666,7 +1666,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (getbit r key offset)
@@ -1687,7 +1687,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (getrange r key start end)
@@ -1708,7 +1708,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (getset r key value)
@@ -1729,7 +1729,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (hdel r key field)
@@ -1750,7 +1750,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (hexists r key field)
@@ -1771,7 +1771,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (hget r key field)
@@ -1792,7 +1792,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (hgetall r key)
@@ -1813,7 +1813,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (hincrby r key field increment)
@@ -1834,7 +1834,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (hincrbyfloat r key field increment)
@@ -1855,7 +1855,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (hkeys r key)
@@ -1876,7 +1876,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (hlen r key)
@@ -1897,7 +1897,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (hmget r key field)
@@ -1918,7 +1918,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (hmset r key field value)
@@ -1939,7 +1939,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (hscan r key cursor)
@@ -1960,7 +1960,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (hset r key field value)
@@ -1981,7 +1981,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (hsetnx r key field value)
@@ -2002,7 +2002,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (hstrlen r key field)
@@ -2023,7 +2023,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (hvals r key)
@@ -2044,7 +2044,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (incr r key)
@@ -2065,7 +2065,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (incrby r key increment)
@@ -2086,7 +2086,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (incrbyfloat r key increment)
@@ -2107,7 +2107,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (info r)
@@ -2128,7 +2128,7 @@ else).

                     instantiate
                 
                 

-                    (λ [Socket] Redis)
+                    (Fn [Socket] Redis)
                 

                 
                     
@@ -2148,7 +2148,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (keys r pattern)
@@ -2169,7 +2169,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (lastsave r)
@@ -2190,7 +2190,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (latency-doctor r)
@@ -2211,7 +2211,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (latency-graph r event)
@@ -2232,7 +2232,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (latency-help r)
@@ -2253,7 +2253,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (latency-history r event)
@@ -2274,7 +2274,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (latency-latest r)
@@ -2295,7 +2295,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (latency-reset r)
@@ -2316,7 +2316,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (lindex r key index)
@@ -2337,7 +2337,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d, e] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d, e] (Result RESP String))
                 

                 
                     (linsert r key w pivot element)
@@ -2358,7 +2358,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (llen r key)
@@ -2379,7 +2379,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (lolwut r)
@@ -2400,7 +2400,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (lpop r key)
@@ -2421,7 +2421,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (lpush r key element)
@@ -2442,7 +2442,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (lpushx r key element)
@@ -2463,7 +2463,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (lrange r key start stop)
@@ -2484,7 +2484,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (lrem r key count element)
@@ -2505,7 +2505,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (lset r key index element)
@@ -2526,7 +2526,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (ltrim r key start stop)
@@ -2547,7 +2547,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (memory-doctor r)
@@ -2568,7 +2568,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (memory-help r)
@@ -2589,7 +2589,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (memory-malloc-stats r)
@@ -2610,7 +2610,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (memory-purge r)
@@ -2631,7 +2631,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (memory-stats r)
@@ -2652,7 +2652,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (memory-usage r key)
@@ -2673,7 +2673,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (mget r key)
@@ -2694,7 +2694,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d, e, f] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d, e, f] (Result RESP String))
                 

                 
                     (migrate r host port key destination-db timeout)
@@ -2715,7 +2715,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (module-list r)
@@ -2736,7 +2736,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (module-load r path)
@@ -2757,7 +2757,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (module-unload r name)
@@ -2778,7 +2778,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (monitor r)
@@ -2799,7 +2799,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (move r key db)
@@ -2820,7 +2820,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (mset r key value)
@@ -2841,7 +2841,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (msetnx r key value)
@@ -2862,7 +2862,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (multi r)
@@ -2883,7 +2883,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (object r subcommand)
@@ -2904,7 +2904,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref String a)] (Result Redis String))
+                    (Fn [(Ref String a)] (Result Redis String))
                 

                 
                     (open host)
@@ -2925,7 +2925,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref String a), Int] (Result Redis String))
+                    (Fn [(Ref String a), Int] (Result Redis String))
                 

                 
                     (open-on host port)
@@ -2945,7 +2945,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (persist r key)
@@ -2966,7 +2966,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (pexpire r key milliseconds)
@@ -2987,7 +2987,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (pexpireat r key milliseconds-timestamp)
@@ -3008,7 +3008,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (pfadd r key element)
@@ -3029,7 +3029,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (pfcount r key)
@@ -3050,7 +3050,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (pfmerge r destkey sourcekey)
@@ -3071,7 +3071,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (ping r)
@@ -3092,7 +3092,7 @@ else).

                     instantiate
                 
                 

-                    (λ [(Ref Redis a)] String)
+                    (Fn [(Ref Redis a)] String)
                 

                 
                     
@@ -3112,7 +3112,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (psetex r key milliseconds value)
@@ -3133,7 +3133,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (psubscribe r pattern)
@@ -3154,7 +3154,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (psync r replicationid offset)
@@ -3175,7 +3175,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (pttl r key)
@@ -3196,7 +3196,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (publish r channel message)
@@ -3217,7 +3217,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (pubsub r subcommand)
@@ -3238,7 +3238,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (punsubscribe r)
@@ -3259,7 +3259,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (quit r)
@@ -3280,7 +3280,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (randomkey r)
@@ -3301,7 +3301,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (read r)
@@ -3321,7 +3321,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (readonly r)
@@ -3342,7 +3342,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (readwrite r)
@@ -3363,7 +3363,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (rename r key newkey)
@@ -3384,7 +3384,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (renamenx r key newkey)
@@ -3405,7 +3405,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (replicaof r host port)
@@ -3426,7 +3426,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (restore r key ttl serialized-value)
@@ -3447,7 +3447,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (role r)
@@ -3468,7 +3468,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (rpop r key)
@@ -3489,7 +3489,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (rpoplpush r source destination)
@@ -3510,7 +3510,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (rpush r key element)
@@ -3531,7 +3531,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (rpushx r key element)
@@ -3552,7 +3552,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (sadd r key member)
@@ -3573,7 +3573,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (save r)
@@ -3594,7 +3594,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (scan r cursor)
@@ -3615,7 +3615,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (scard r key)
@@ -3636,7 +3636,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (script-debug r mode)
@@ -3657,7 +3657,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (script-exists r sha1)
@@ -3678,7 +3678,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (script-flush r)
@@ -3699,7 +3699,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (script-kill r)
@@ -3720,7 +3720,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (script-load r script)
@@ -3741,7 +3741,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (sdiff r key)
@@ -3762,7 +3762,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (sdiffstore r destination key)
@@ -3783,7 +3783,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (select r index)
@@ -3804,7 +3804,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, (Ref (Array RESP) c)] ())
+                    (Fn [(Ref Redis a), b, (Ref (Array RESP) c)] ())
                 

                 
                     (send r cmd args)
@@ -3824,7 +3824,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (set r key value)
@@ -3845,7 +3845,7 @@ else).

                     instantiate
                 
                 

-                    (λ [Redis, Socket] Redis)
+                    (Fn [Redis, Socket] Redis)
                 

                 
                     
@@ -3865,7 +3865,7 @@ else).

                     instantiate
                 
                 

-                    (λ [(Ref Redis a), Socket] ())
+                    (Fn [(Ref Redis a), Socket] ())
                 

                 
                     
@@ -3885,7 +3885,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (setbit r key offset value)
@@ -3906,7 +3906,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (setex r key seconds value)
@@ -3927,7 +3927,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (setnx r key value)
@@ -3948,7 +3948,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (setrange r key offset value)
@@ -3969,7 +3969,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (shutdown r)
@@ -3990,7 +3990,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (sinter r key)
@@ -4011,7 +4011,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (sinterstore r destination key)
@@ -4032,7 +4032,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (sismember r key member)
@@ -4053,7 +4053,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (slaveof r host port)
@@ -4074,7 +4074,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (slowlog r subcommand)
@@ -4095,7 +4095,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (smembers r key)
@@ -4116,7 +4116,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (smove r source destination member)
@@ -4137,7 +4137,7 @@ else).

                     instantiate
                 
                 

-                    (λ [(Ref Redis a)] (Ref Socket a))
+                    (Fn [(Ref Redis a)] (Ref Socket a))
                 

                 
                     
@@ -4157,7 +4157,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (sort r key)
@@ -4178,7 +4178,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (spop r key)
@@ -4199,7 +4199,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (srandmember r key)
@@ -4220,7 +4220,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (srem r key member)
@@ -4241,7 +4241,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (sscan r key cursor)
@@ -4262,7 +4262,7 @@ else).

                     instantiate
                 
                 

-                    (λ [(Ref Redis a)] String)
+                    (Fn [(Ref Redis a)] String)
                 

                 
                     
@@ -4282,7 +4282,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (strlen r key)
@@ -4303,7 +4303,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (subscribe r channel)
@@ -4324,7 +4324,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (sunion r key)
@@ -4345,7 +4345,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (sunionstore r destination key)
@@ -4366,7 +4366,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (swapdb r index1 index2)
@@ -4387,7 +4387,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (sync r)
@@ -4408,7 +4408,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (time r)
@@ -4429,7 +4429,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (touch r key)
@@ -4450,7 +4450,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (ttl r key)
@@ -4471,7 +4471,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (type r key)
@@ -4492,7 +4492,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (unlink r key)
@@ -4513,7 +4513,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (unsubscribe r)
@@ -4534,7 +4534,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (unwatch r)
@@ -4555,7 +4555,7 @@ else).

                     instantiate
                 
                 

-                    (λ [Redis, (Ref (λ [Socket] Socket a) b)] Redis)
+                    (Fn [Redis, (Ref (Fn [Socket] Socket a) b)] Redis)
                 

                 
                     
@@ -4575,7 +4575,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (wait r numreplicas timeout)
@@ -4596,7 +4596,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (watch r key)
@@ -4617,7 +4617,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (xack r key group ID)
@@ -4638,7 +4638,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d, e] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d, e] (Result RESP String))
                 

                 
                     (xadd r key ID field value)
@@ -4659,7 +4659,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d, e, f] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d, e, f] (Result RESP String))
                 

                 
                     (xclaim r key group consumer min-idle-time ID)
@@ -4680,7 +4680,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (xdel r key ID)
@@ -4701,7 +4701,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (xgroup r)
@@ -4722,7 +4722,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (xinfo r)
@@ -4743,7 +4743,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (xlen r key)
@@ -4764,7 +4764,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (xpending r key group)
@@ -4785,7 +4785,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (xrange r key start end)
@@ -4806,7 +4806,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a)] (Result RESP String))
+                    (Fn [(Ref Redis a)] (Result RESP String))
                 

                 
                     (xread r)
@@ -4827,7 +4827,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (xreadgroup r GROUP group consumer)
@@ -4848,7 +4848,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (xrevrange r key end start)
@@ -4869,7 +4869,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (xtrim r key MAXLEN count)
@@ -4890,7 +4890,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (zadd r key)
@@ -4911,7 +4911,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (zcard r key)
@@ -4932,7 +4932,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zcount r key min max)
@@ -4953,7 +4953,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zincrby r key increment member)
@@ -4974,7 +4974,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zinterstore r destination numkeys key)
@@ -4995,7 +4995,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zlexcount r key min max)
@@ -5016,7 +5016,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (zpopmax r key)
@@ -5037,7 +5037,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b] (Result RESP String))
+                    (Fn [(Ref Redis a), b] (Result RESP String))
                 

                 
                     (zpopmin r key)
@@ -5058,7 +5058,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zrange r key start stop)
@@ -5079,7 +5079,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zrangebylex r key min max)
@@ -5100,7 +5100,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zrangebyscore r key min max)
@@ -5121,7 +5121,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (zrank r key member)
@@ -5142,7 +5142,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (zrem r key member)
@@ -5163,7 +5163,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zremrangebylex r key min max)
@@ -5184,7 +5184,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zremrangebyrank r key start stop)
@@ -5205,7 +5205,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zremrangebyscore r key min max)
@@ -5226,7 +5226,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zrevrange r key start stop)
@@ -5247,7 +5247,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zrevrangebylex r key max min)
@@ -5268,7 +5268,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zrevrangebyscore r key max min)
@@ -5289,7 +5289,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (zrevrank r key member)
@@ -5310,7 +5310,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (zscan r key cursor)
@@ -5331,7 +5331,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c] (Result RESP String))
                 

                 
                     (zscore r key member)
@@ -5352,7 +5352,7 @@ else).

                     defn
                 
                 

-                    (λ [(Ref Redis a), b, c, d] (Result RESP String))
+                    (Fn [(Ref Redis a), b, c, d] (Result RESP String))
                 

                 
                     (zunionstore r destination numkeys key)
diff --git a/docs/redis_index.html b/docs/redis_index.html
index 286e28a..bf710f7 100644
--- a/docs/redis_index.html
+++ b/docs/redis_index.html
@@ -4,7 +4,7 @@
     
         
         
-        
+        
     
     
         

diff --git a/gendocs.carp b/gendocs.carp
index 526f1c2..cddc51a 100644
--- a/gendocs.carp
+++ b/gendocs.carp
@@ -4,7 +4,7 @@
 (Project.config "docs-directory" "./docs/")
 (Project.config "docs-logo" "")
 (Project.config "docs-url" "https://veitheller/git/carpentry/redis")
-(Project.config "docs-styling" "style.css")
+(Project.config "docs-styling" "../style.css")
 (Project.config "docs-prelude" "is a collection of modules for talking
 to Redis.
 
diff --git a/redis.carp b/redis.carp
index fccfffb..89c1cbe 100644
--- a/redis.carp
+++ b/redis.carp
@@ -1,4 +1,4 @@
-(load "git@github.com:carpentry-org/sockets@master")
+(load "git@github.com:carpentry-org/sockets@0.0.2")
 
 (deftype RESP
   (Null [])
@@ -30,11 +30,12 @@
     (if (starts-with? s "-1\r\n")
       (Success (Null))
       (let [splt (split #"\r\n" s)
-            l &(unsafe-first &splt)]
-        (if (not (num? l))
-          (Error @"Error decoding bulk string: does not start with length!")
-          (Success (Str
-            (String.prefix &(join "\r\n" &(suffix &splt 1)) (from-string l))))))))
+            l (unsafe-first &splt)]
+        (match (from-string l)
+          (Maybe.Nothing) (Error @"Error decoding bulk string: does not start with length!")
+          (Maybe.Just il)
+            (Success (Str
+              (String.prefix &(join "\r\n" &(suffix &splt 1)) il)))))))
 
   (hidden agg)
   (private agg)
@@ -56,42 +57,49 @@
     (if (starts-with? s "*0\r\n")
       (Success (Null))
       (let [splt (split #"\r\n" &(chomp s))
-            sl &(unsafe-first &splt)]
-        (if (not (num? sl))
-          (Error @"Error decoding array: does not start with length!")
-          (let-do [l (from-string sl)
-                   a (Array.allocate l)
-                   idx 0
-                   err ""]
-            (for [i 0 (- (length &splt) 1)]
-              ; TODO: have nested structures
-              (let-do [el (unsafe-nth &splt (+ i 1))]
-                (case (head el)
-                  \$
-                    (let [il (from-string &(tail el))]
-                      (if (= -1 il)
-                        (aset-uninitialized! &a idx @"")
-                        (let-do [rest (suffix &splt (+ i 2))]
-                          (aset-uninitialized! &a idx (String.prefix &(join "\r\n" &rest) il))
-                          (set! i (+ i (agg &rest il))))))
-                  \*
-                    (do
-                      (set! err "TODO: cannot deal with nested arrays")
-                      (break))
-                  (aset-uninitialized! &a idx (chomp el)))
-                (set! idx (inc idx))))
-            (if (= err "")
-              (Success (Arr a))
-              (Error @err)))))))
+            sl (unsafe-first &splt)]
+        (match (from-string sl)
+          (Maybe.Nothing)
+            (Error @"Error decoding array: does not start with length!")
+          (Maybe.Just l)
+            (let-do [a (Array.allocate l)
+                     idx 0
+                     err ""]
+              (for [i 0 (- (length &splt) 1)]
+                ; TODO: have nested structures
+                (let-do [el (unsafe-nth &splt (+ i 1))]
+                  (case (head el)
+                    \$
+                      (match (from-string &(tail el))
+                        (Maybe.Nothing)
+                          (aset-uninitialized! &a idx @"")
+                        (Maybe.Just il)
+                          (let-do [rest (suffix &splt (+ i 2))]
+                            (aset-uninitialized! &a idx (String.prefix &(join "\r\n" &rest) il))
+                            (set! i (+ i (agg &rest il)))))
+                    \*
+                      (do
+                        (set! err "TODO: cannot deal with nested arrays")
+                        (break))
+                    (aset-uninitialized! &a idx (chomp el)))
+                  (set! idx (inc idx))))
+              (if (= err "")
+                (Success (Arr a))
+                (Error @err)))))))
 
   (doc from-string "converts a RESP string into a `RESP` data structure.")
   (defn from-string [s]
     (if (empty? s)
       (Success (Null))
       (case (head s)
-        \+ (Success (Str (unsafe-first &(split #"\r\n" &(tail s)))))
-        \- (Success (Err (unsafe-first &(split #"\r\n" &(tail s)))))
-        \: (Success (Integer (from-string &(unsafe-first &(split #"\r\n" &(tail s))))))
+        \+ (Success (Str @(unsafe-first &(split #"\r\n" &(tail s)))))
+        \- (Success (Err @(unsafe-first &(split #"\r\n" &(tail s)))))
+        \:
+          (match (from-string (unsafe-first &(split #"\r\n" &(tail s))))
+            (Maybe.Nothing)
+              (Error @"Could not parse integer in result.")
+            (Maybe.Just i)
+              (Success (Integer i)))
         \$ (decode-bulk-string &(tail s))
         \* (decode-arr &(tail s))
         (Error (fmt "Malformed RESP data: got %s" s)))))
@@ -101,10 +109,12 @@
 
 (defmodule String
   (defn to-redis [s] (RESP.Str s))
+  (implements to-redis String.to-redis)
 )
 
 (defmodule Int
   (defn to-redis [s] (RESP.Integer s))
+  (implements to-redis Int.to-redis)
 )
 
 (deftype Redis [