diff options
| author | Eduardo Julian | 2018-12-04 20:29:08 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-12-04 20:29:08 -0400 |
| commit | 03f7f28bcfcd814091537a32dd5c11a388da273b (patch) | |
| tree | a817c811212d6683fb859e3e5df754349d8b4f9c /stdlib/test | |
| parent | 169cb88b8ec774868ce8befbc0ccb2be6a91aa73 (diff) | |
Some refactoring and small fixes.
Diffstat (limited to 'stdlib/test')
| -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) |