roc format

This commit is contained in:
Luke Boswell 2023-03-15 18:54:46 +11:00
parent 2241b173bf
commit dd0fdd5d74
No known key found for this signature in database
GPG key ID: F6DB3C9DB47377B0
2 changed files with 19 additions and 17 deletions

View file

@ -444,10 +444,12 @@ decodeList = \decodeElem -> Decode.custom \bytes, @Json {} ->
when bytesWithoutWhitespace is
[']', ..] ->
{ result: Ok [], rest: List.dropFirst bytesWithoutWhitespace }
_ ->
when decodeElems bytesWithoutWhitespace [] is
Errored e rest ->
{ result: Err e, rest }
Done vals rest ->
when rest is
[']', ..] -> { result: Ok vals, rest: List.dropFirst rest }