diff --git a/redis.carp b/redis.carp index 89c1cbe..e840e0d 100644 --- a/redis.carp +++ b/redis.carp @@ -5,12 +5,12 @@ (Str [String]) (Err [String]) (Integer [Int]) - ;(Arr [(Array &Resp)]) + ;(Arr [(Array &RESP)]) (Arr [(Array String)]) ) (defmodule RESP - (use-all Array Int Maybe Pattern Result) + (use-all Array Maybe Pattern Result) (hidden c) (private c) @@ -19,10 +19,10 @@ (defn str [r] (match @r (Null) @"$-1\r\n" - (Str s) (fmt "$%d\r\n%s\r\n" (length &s) &s) + (Str s) (fmt "$%d\r\n%s\r\n" (String.length &s) &s) (Err s) (fmt "-%s\r\n" &s) (Integer i) (fmt ":%d\r\n" i) - (Arr a) (fmt "*%d\r\n%s" (length &a) &(concat &a)))) + (Arr a) (fmt "*%d\r\n%s" (Array.length &a) &(String.concat &a)))) (hidden decode-bulk-string) (private decode-bulk-string) @@ -32,8 +32,8 @@ (let [splt (split #"\r\n" s) l (unsafe-first &splt)] (match (from-string l) - (Maybe.Nothing) (Error @"Error decoding bulk string: does not start with length!") - (Maybe.Just il) + (Nothing) (Error @"Error decoding bulk string: does not start with length!") + (Just il) (Success (Str (String.prefix &(join "\r\n" &(suffix &splt 1)) il))))))) @@ -48,7 +48,7 @@ (break) (do (set! consumed (inc consumed)) - (set! clen (+ 2 (+ clen (length el)))))))) + (set! clen (+ 2 (+ clen (String.length el)))))))) consumed)) (hidden decode-arr) @@ -59,9 +59,9 @@ (let [splt (split #"\r\n" &(chomp s)) sl (unsafe-first &splt)] (match (from-string sl) - (Maybe.Nothing) + (Nothing) (Error @"Error decoding array: does not start with length!") - (Maybe.Just l) + (Just l) (let-do [a (Array.allocate l) idx 0 err ""]