language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-01 15:51:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Simpl decoder a bit

Browse source
This commit is contained in:
Ayaz Hafiz 2022-05-07 14:03:19 -04:00 • committed by ayazhafiz
parent e08b5fa91e
commit 4a623a48dc
2 changed files with 27 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
compiler/test_gen/src/gen_abilities.rs
View file

@ -292,9 +292,10 @@ fn decode() {
fromBytes = \lst, fmt ->
when decodeWith lst decoder fmt is
{ result, rest } ->
when result is
Ok val -> if List.isEmpty rest then Ok val else Err (Leftover rest)
Err e -> Err e
Result.after result \val ->
if List.isEmpty rest
then Ok val
else Err (Leftover rest)
Linear := {}
@ -309,9 +310,8 @@ fn decode() {
# impl Decoding for MyU8
decoder = @Decoder \lst, fmt ->
when decodeWith lst u8 fmt is
{ result, rest } ->
{ result: Result.map result (\n -> @MyU8 n), rest }
{ result, rest } = decodeWith lst u8 fmt
{ result: Result.map result (\n -> @MyU8 n), rest }
myU8 =
when fromBytes [ 15 ] (@Linear {}) is