language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-26 13:29:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Bool decoding

Browse source
This commit is contained in:
Ayaz Hafiz 2022-08-01 09:47:42 -05:00
parent a00953128d
commit c85c865b05
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -280,8 +280,15 @@ decodeDec = Decode.custom \bytes, @Json {} ->
Ok n -> {result: Ok n, rest}
Err _ -> {result: Err TooShort, rest}
# FIXME
decodeBool = Decode.custom \bytes, @Json {} -> {result: Err TooShort, rest: bytes}
decodeBool = Decode.custom \bytes, @Json {} ->
{before: maybeFalse, others: afterFalse} = List.split bytes 5
if maybeFalse == [ (asciiByte 'f'), asciiByte 'a', asciiByte 'l', asciiByte 's', asciiByte 'e' ]
then {result: Ok False, rest: afterFalse}
else
{before: maybeTrue, others: afterTrue} = List.split bytes 4
if maybeTrue == [asciiByte 't', asciiByte 'r', asciiByte 'u', asciiByte 'e']
then {result: Ok True, rest: afterTrue}
else {result: Err TooShort, rest: bytes}
# FIXME
decodeString = Decode.custom \bytes, @Json {} -> {result: Err TooShort, rest: bytes}