mirror of
https://github.com/roc-lang/roc.git
synced 2025-12-04 09:03:47 +00:00
roc format
This commit is contained in:
parent
2241b173bf
commit
dd0fdd5d74
2 changed files with 19 additions and 17 deletions
|
|
@ -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 }
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue