aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/control/reader.lux
diff options
context:
space:
mode:
authorEduardo Julian2019-04-06 23:11:20 -0400
committerEduardo Julian2019-04-06 23:11:20 -0400
commit2a05d8f3711d2e1b6fcccd9a2869478197386a7f (patch)
tree12206ff1f282943225b795334e38c0ac1e935e77 /stdlib/source/test/lux/control/reader.lux
parenta75f032ff219fdd639580455a6d3e83fd05d5592 (diff)
Moved "lux/cli", "lux/io" and "lux/function" under "lux/control".
Diffstat (limited to 'stdlib/source/test/lux/control/reader.lux')
-rw-r--r--stdlib/source/test/lux/control/reader.lux7
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/control/reader.lux b/stdlib/source/test/lux/control/reader.lux
index aa639ce70..94aacdb5d 100644
--- a/stdlib/source/test/lux/control/reader.lux
+++ b/stdlib/source/test/lux/control/reader.lux
@@ -1,6 +1,5 @@
(.module:
[lux #*
- ["." io (#+ IO)]
["_" test (#+ Test)]
[abstract
[monad (#+ do)]
@@ -15,7 +14,9 @@
[math
["r" random]]]
{1
- ["." / (#+ Reader)]})
+ ["." / (#+ Reader)
+ [//
+ ["." io (#+ IO)]]]})
(def: (injection value)
(Injection (All [a r] (Reader r a)))
@@ -29,7 +30,7 @@
(def: #export test
Test
- (<| (_.context (%name (name-of /.Reader)))
+ (<| (_.context (%name (name-of /._)))
(do r.monad
[sample r.nat
factor r.nat]