diff options
Diffstat (limited to 'stdlib/source/lux/cli.lux')
-rw-r--r-- | stdlib/source/lux/cli.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/cli.lux b/stdlib/source/lux/cli.lux index 69a7cae7f..8af410d54 100644 --- a/stdlib/source/lux/cli.lux +++ b/stdlib/source/lux/cli.lux @@ -7,8 +7,8 @@ ["." process]]] [data [collection - ["." list ("#/." monoid monad)]] - ["." text ("#/." equivalence) + ["." list ("#;." monoid monad)]] + ["." text ("#;." equivalence) format] ["." error (#+ Error)]] [macro (#+ with-gensyms) @@ -63,7 +63,7 @@ (function (_ inputs) (do error.monad [[remaining raw] (any inputs)] - (if (text/= reference raw) + (if (text;= reference raw) (wrap [remaining []]) (error.fail (format "Missing token: '" reference "'")))))) @@ -131,7 +131,7 @@ (wrap []))) (program: [name] - (io (log! (text/compose "Hello, " name)))) + (io (log! (text;compose "Hello, " name)))) (program: [{config config^}] (do io.monad @@ -153,9 +153,9 @@ (case ((: (~! (..CLI (io.IO .Any))) ((~! do) (~! p.monad) [(~+ (|> args - (list/map (function (_ [binding parser]) + (list;map (function (_ [binding parser]) (list binding parser))) - list/join)) + list;join)) (~ g!_) ..end] ((~' wrap) ((~! do) (~! io.monad) [(~ g!output) (~ body) |