diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux/data/color.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/test/test/lux/data/color.lux b/stdlib/test/test/lux/data/color.lux index 977ffcf01..5ff92e6cd 100644 --- a/stdlib/test/test/lux/data/color.lux +++ b/stdlib/test/test/lux/data/color.lux @@ -12,7 +12,7 @@ (def: color (r.Random @.Color) (|> ($_ r.and r.nat r.nat r.nat) - (:: r.Monad<Random> map @.color))) + (:: r.Monad<Random> map @.from-rgb))) (def: scale (-> Nat Frac) @@ -31,8 +31,8 @@ (def: error-margin Frac +1.8) -(def: black @.Color (@.color [0 0 0])) -(def: white @.Color (@.color [255 255 255])) +(def: black (@.from-rgb [0 0 0])) +(def: white (@.from-rgb [255 255 255])) (do-template [<field>] [(def: (<field> color) |