language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-03 19:58:18 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Remove decodeElems and handle end-of-list appropriately

Browse source
This commit is contained in:
Ayaz Hafiz 2022-08-01 11:07:27 -05:00
parent ffb7f7a001
commit 5ba646d3e0
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
1 changed files with 4 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

16
crates/compiler/builtins/roc/Json.roc
View file

@ -336,7 +336,7 @@ decodeString = Decode.custom \bytes, @Json {} ->
{ result: Err TooShort, rest: bytes }
decodeList = \decodeElem -> Decode.custom \bytes, @Json {} ->
decodeOne = \chunk ->
decodeElems = \chunk, accum ->
when Decode.decodeWith chunk decodeElem (@Json {}) is
{ result, rest } ->
when result is
@ -347,26 +347,18 @@ decodeList = \decodeElem -> Decode.custom \bytes, @Json {} ->
if
afterElem == [asciiByte ',']
then
One val others
decodeElems others (List.append accum val)
else
Done val others
Done (List.append accum val) rest
Err e -> Errored e rest
decodeElems = \elemBytes, accum ->
when decodeOne elemBytes is
Errored e rest -> Errored e rest
One val others ->
decodeElems others (List.append accum val)
Done val others ->
Done (List.append accum val) others
{ before, others: afterStartingBrace } = List.split bytes 1
if
before == [asciiByte '[']
then
# TODO: empty lists
when decodeElems afterStartingBrace [] is
Errored e rest -> { result: Err e, rest }
Done vals rest ->