language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-04 12:18:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Merge pull request #7079 from roc-lang/uppercase-fix

Browse source 
Uppercase naming consistency in abilities docs
This commit is contained in:
Richard Feldman 2024-09-14 20:15:26 -04:00 • committed by GitHub
commit 7df1142455
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
www/content/abilities.md
View file

@ -216,8 +216,8 @@ You can provide a custom implementation for an ability. This may be useful if a
```roc
Color := [
RGBAu8 U8 U8 U8 U8,
RGBAf32 F32 F32 F32 F32,
RgbaU8 U8 U8 U8 U8,
RgbaF32 F32 F32 F32 F32,
]
implements [
Eq { isEq: colorEquality },
@ -230,29 +230,29 @@ colorEquality = \a, b -> colorToU8 a == colorToU8 b
colorToU8 : Color -> (U8, U8, U8, U8)
colorToU8 = \@Color c->
when c is
RGBAu8 r g b a -> (r, g, b, a)
RGBAf32 r g b a -> (f32toU8 r, f32toU8 g, f32toU8 b, f32toU8 a)
RgbaU8 r g b a -> (r, g, b, a)
RgbaF32 r g b a -> (f32toU8 r, f32toU8 g, f32toU8 b, f32toU8 a)
f32toU8 : F32 -> U8
f32toU8 = \f ->
Num.floor (f * 255.0)
fromU8 : U8, U8, U8, U8 -> Color
fromU8 = \r, g, b, a -> @Color (RGBAu8 r g b a)
fromU8 = \r, g, b, a -> @Color (RgbaU8 r g b a)
fromI16 : I16, I16, I16, I16 -> Result Color [OutOfRange]
fromI16 = \r, g, b, a ->
if r < 0 || r > 255 || g < 0 || g > 255 || b < 0 || b > 255 || a < 0 || a > 255 then
Err OutOfRange
else
Ok (@Color (RGBAu8 (Num.toU8 r) (Num.toU8 g) (Num.toU8 b) (Num.toU8 a)))
Ok (@Color (RgbaU8 (Num.toU8 r) (Num.toU8 g) (Num.toU8 b) (Num.toU8 a)))
fromF32 : F32, F32, F32, F32 -> Result Color [OutOfRange]
fromF32 = \r, g, b, a ->
if r < 0.0 || r > 1.0 || g < 0.0 || g > 1.0 || b < 0.0 || b > 1.0 || a < 0.0 || a > 1.0 then
Err OutOfRange
else
Ok (@Color (RGBAf32 r g b a))
Ok (@Color (RgbaF32 r g b a))
```
## [Advanced Topic: Defining a new Ability](#defining-a-new-ability) {#defining-a-new-ability}