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

Use asciiByte helper

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

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

@ -183,7 +183,9 @@ takeWhile = \list, predicate ->
Err _ -> {taken, rest} Err _ -> {taken, rest}
helper {taken: [], rest: list} helper {taken: [], rest: list}
digits = List.range 48u8 58u8 asciiByte = \b -> Num.toU8 b
digits = List.range (asciiByte '0') ((asciiByte '9') + 1)
takeDigits = \bytes -> takeDigits = \bytes ->
takeWhile bytes \n -> List.contains digits n takeWhile bytes \n -> List.contains digits n
@ -194,9 +196,7 @@ takeFloat = \bytes ->
Ok 46 -> # 46 = . Ok 46 -> # 46 = .
{taken: floatPart, rest: afterAll} = takeDigits rest {taken: floatPart, rest: afterAll} = takeDigits rest
builtFloat = builtFloat =
intPart List.concat (List.append intPart (asciiByte '.')) floatPart
|> List.append (Num.intCast '.')
|> List.concat floatPart
{taken: builtFloat, rest: afterAll} {taken: builtFloat, rest: afterAll}
_ -> _ ->