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 when bytesWithoutWhitespace is
[']', ..] -> [']', ..] ->
{ result: Ok [], rest: List.dropFirst bytesWithoutWhitespace } { result: Ok [], rest: List.dropFirst bytesWithoutWhitespace }
_ -> _ ->
when decodeElems bytesWithoutWhitespace [] is when decodeElems bytesWithoutWhitespace [] is
Errored e rest -> Errored e rest ->
{ result: Err e, rest } { result: Err e, rest }
Done vals rest -> Done vals rest ->
when rest is when rest is
[']', ..] -> { result: Ok vals, rest: List.dropFirst rest } [']', ..] -> { result: Ok vals, rest: List.dropFirst rest }