From 607904a5238ecfcf7761143207ca41e082a12aa8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 22 Jul 2017 18:06:39 -0400
Subject: - Renamed Chan to Channel.

---
 stdlib/test/test/lux/concurrency/frp.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'stdlib/test')

diff --git a/stdlib/test/test/lux/concurrency/frp.lux b/stdlib/test/test/lux/concurrency/frp.lux
index 3447a55b2..302a59d06 100644
--- a/stdlib/test/test/lux/concurrency/frp.lux
+++ b/stdlib/test/test/lux/concurrency/frp.lux
@@ -9,19 +9,19 @@
   lux/test)
 
 (def: (to-channel values)
-  (-> (List Int) (&;Chan Int))
-  (let [_chan (&;chan Int)]
+  (-> (List Int) (&;Channel Int))
+  (let [_channel (&;channel Int)]
     (io;run (do Monad<IO>
-              [_ (mapM @ (function [value] (&;write value _chan))
+              [_ (mapM @ (function [value] (&;write value _channel))
                        values)
-               _ (&;close _chan)]
-              (wrap _chan)))))
+               _ (&;close _channel)]
+              (wrap _channel)))))
 
 (context: "FRP"
   ($_ seq
       (do P;Monad<Promise>
         [elems (&;consume (to-channel (list 0 1 2 3 4 5)))]
-        (test "Can consume a chan into a list."
+        (test "Can consume a channel into a list."
               (case elems
                 (^ (list 0 1 2 3 4 5))
                 true
@@ -31,7 +31,7 @@
 
       (do P;Monad<Promise>
         [elems (&;consume (let [input (to-channel (list 0 1 2 3 4 5))
-                                output (&;chan Int)]
+                                output (&;channel Int)]
                             (exec (&;pipe input output)
                               output)))]
         (test "Can pipe one channel into another."
@@ -89,7 +89,7 @@
                 false)))
 
       (do P;Monad<Promise>
-        [elems (&;consume (:: &;Functor<Chan> map i.inc (to-channel (list 0 1 2 3 4 5))))]
+        [elems (&;consume (:: &;Functor<Channel> map i.inc (to-channel (list 0 1 2 3 4 5))))]
         (test "Functor goes over every element in a channel."
               (case elems
                 (^ (list 1 2 3 4 5 6))
@@ -99,7 +99,7 @@
                 false)))
 
       (do P;Monad<Promise>
-        [elems (&;consume (let [(^open) &;Applicative<Chan>]
+        [elems (&;consume (let [(^open) &;Applicative<Channel>]
                             (apply (wrap i.inc) (wrap 12345))))]
         (test "Applicative works over all channel values."
               (case elems
@@ -110,7 +110,7 @@
                 false)))
 
       (do P;Monad<Promise>
-        [elems (&;consume (do &;Monad<Chan>
+        [elems (&;consume (do &;Monad<Channel>
                             [f (wrap i.inc)
                              a (wrap 12345)]
                             (wrap (f a))))]
-- 
cgit v1.2.3