language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-24 15:03:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

roc format

Browse source
This commit is contained in:
Luke Boswell 2023-03-26 20:55:13 +11:00
parent 3fbfdc3e4a
commit 53d5d95c52
No known key found for this signature in database
GPG key ID: F6DB3C9DB47377B0
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -512,11 +512,11 @@ decodeRecord = \initialState, stepField, finalizer -> Decode.custom \bytes, @Jso
#
# Note that this does not handle leading whitespace, any whitespace must be
# handled in json list or record decoding.
#
# |> List.dropIf \b -> b == '+'
#
# |> List.dropIf \b -> b == '+'
# TODO ^^ not needed if roc supports "1e+2", this supports
# "+" which is permitted in Json numbers
#
#
# |> List.map \b -> if b == 'E' then 'e' else b
# TODO ^^ not needed if roc supports "1E2", this supports
# "E" which is permitted in Json numbers
@ -529,7 +529,7 @@ takeJsonNumber = \bytes ->
|> List.sublist { start: 0, len: n }
|> List.dropIf \b -> b == '+'
|> List.map \b -> if b == 'E' then 'e' else b
{ taken, rest: List.drop bytes n }
_ ->
@ -1083,7 +1083,7 @@ expect
actual.result == expected
# Test decode of json strings ignoring whitespace
# Test decode of json strings ignoring whitespace
expect
input = Str.toUtf8 "\n\t [\n \"one\"\r , \"two\" , \n\"3\"\t]"