From 03f7f28bcfcd814091537a32dd5c11a388da273b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 4 Dec 2018 20:29:08 -0400
Subject: Some refactoring and small fixes.

---
 stdlib/test/test/lux/data/color.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/test')

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)
-- 
cgit v1.2.3