roc format

This commit is contained in:
faldor20 2024-04-02 10:00:25 +10:00
parent 017efc84ae
commit f330e9aa29
No known key found for this signature in database
GPG key ID: F2216079B890CD57

View file

@ -247,7 +247,6 @@ encodeList = \lst, encodeElem ->
{ buffer: bufferWithSuffix, elemsLeft: elemsLeft - 1 } { buffer: bufferWithSuffix, elemsLeft: elemsLeft - 1 }
head = List.append bytes (Num.toU8 '[') head = List.append bytes (Num.toU8 '[')
{ buffer: withList } = List.walk lst { buffer: head, elemsLeft: List.len lst } writeList { buffer: withList } = List.walk lst { buffer: head, elemsLeft: List.len lst } writeList
@ -294,7 +293,6 @@ encodeTuple = \elems ->
if bufferWithElem |> List.len == beforeBufferLen then if bufferWithElem |> List.len == beforeBufferLen then
{ buffer: bufferWithElem, elemsLeft: elemsLeft - 1 } { buffer: bufferWithElem, elemsLeft: elemsLeft - 1 }
else else
bufferWithSuffix = bufferWithSuffix =
if elemsLeft > 1 then if elemsLeft > 1 then
List.append bufferWithElem (Num.toU8 ',') List.append bufferWithElem (Num.toU8 ',')