diff options
Diffstat (limited to 'stdlib/source/lux/world')
-rw-r--r-- | stdlib/source/lux/world/db/jdbc.jvm.lux | 6 | ||||
-rw-r--r-- | stdlib/source/lux/world/db/jdbc/input.jvm.lux | 2 | ||||
-rw-r--r-- | stdlib/source/lux/world/db/sql.lux | 16 | ||||
-rw-r--r-- | stdlib/source/lux/world/file.lux | 14 | ||||
-rw-r--r-- | stdlib/source/lux/world/net/http/cookie.lux | 4 | ||||
-rw-r--r-- | stdlib/source/lux/world/net/http/request.lux | 6 | ||||
-rw-r--r-- | stdlib/source/lux/world/net/http/response.lux | 8 | ||||
-rw-r--r-- | stdlib/source/lux/world/net/http/route.lux | 2 | ||||
-rw-r--r-- | stdlib/source/lux/world/service/journal.lux | 16 | ||||
-rw-r--r-- | stdlib/source/lux/world/shell.lux | 10 |
10 files changed, 42 insertions, 42 deletions
diff --git a/stdlib/source/lux/world/db/jdbc.jvm.lux b/stdlib/source/lux/world/db/jdbc.jvm.lux index 285eff34a..b91bb2a72 100644 --- a/stdlib/source/lux/world/db/jdbc.jvm.lux +++ b/stdlib/source/lux/world/db/jdbc.jvm.lux @@ -6,7 +6,7 @@ [monad (#+ Monad do)] ["ex" exception] [concurrency - ["." promise (#+ Promise) ("#/." monad)]] + ["." promise (#+ Promise) ("#;." monad)]] [security ["!" capability (#+ capability:)]]] [data @@ -15,7 +15,7 @@ [text format] [collection - ["." list ("#/." fold)]]] + ["." list ("#;." fold)]]] ["." io (#+ IO)] [world [net (#+ URL)]] @@ -171,5 +171,5 @@ (do (error.with promise.monad) [db (promise.future (..connect creds)) result (action (..async db)) - _ (promise/wrap (io.run (!.use (:: db close) [])))] + _ (promise;wrap (io.run (!.use (:: db close) [])))] (wrap result))) diff --git a/stdlib/source/lux/world/db/jdbc/input.jvm.lux b/stdlib/source/lux/world/db/jdbc/input.jvm.lux index 8e1797ab0..dc6ef141c 100644 --- a/stdlib/source/lux/world/db/jdbc/input.jvm.lux +++ b/stdlib/source/lux/world/db/jdbc/input.jvm.lux @@ -6,7 +6,7 @@ [data ["." error (#+ Error)] [collection - ["." list ("#/." fold)]]] + ["." list ("#;." fold)]]] [time ["." instant (#+ Instant)]] ["." io (#+ IO)] diff --git a/stdlib/source/lux/world/db/sql.lux b/stdlib/source/lux/world/db/sql.lux index fc53fc099..94563bdf1 100644 --- a/stdlib/source/lux/world/db/sql.lux +++ b/stdlib/source/lux/world/db/sql.lux @@ -3,10 +3,10 @@ [control [monad (#+ do)]] [data - ["." text ("#/." equivalence) + ["." text ("#;." equivalence) format] [collection - ["." list ("#/." functor)]]] + ["." list ("#;." functor)]]] [type abstract]]) @@ -107,7 +107,7 @@ (def: enumerate (-> (List (SQL Any)) Text) - (|>> (list/map (|>> :representation)) + (|>> (list;map (|>> :representation)) (text.join-with ", "))) ## Value @@ -214,8 +214,8 @@ _ (|> columns - (list/map (.function (_ [column alias]) - (if (text/= ..no-alias alias) + (list;map (.function (_ [column alias]) + (if (text;= ..no-alias alias) (:representation column) (format (:representation column) " AS " alias)))) (text.join-with ", "))) @@ -295,7 +295,7 @@ (format (:representation query) " ORDER BY " (|> pairs - (list/map (.function (_ [value order]) + (list;map (.function (_ [value order]) (format (:representation value) " " (:representation order)))) (text.join-with ", ")))))) @@ -322,7 +322,7 @@ (..parenthesize (..enumerate columns)) " VALUES " (|> rows - (list/map (|>> ..enumerate ..parenthesize)) + (list;map (|>> ..enumerate ..parenthesize)) (text.join-with ", ")) ))) @@ -335,7 +335,7 @@ _ (format " SET " (|> pairs - (list/map (.function (_ [column value]) + (list;map (.function (_ [column value]) (format (:representation column) "=" (:representation value)))) (text.join-with ", "))))))) diff --git a/stdlib/source/lux/world/file.lux b/stdlib/source/lux/world/file.lux index b12b2afe6..0f35422b7 100644 --- a/stdlib/source/lux/world/file.lux +++ b/stdlib/source/lux/world/file.lux @@ -9,12 +9,12 @@ ["!" capability (#+ capability:)]]] [data ["." maybe] - ["." error (#+ Error) ("#/." functor)] + ["." error (#+ Error) ("#;." functor)] ["." text format] [collection ["." array (#+ Array)] - ["." list ("#/." functor)]]] + ["." list ("#;." functor)]]] [time ["." instant (#+ Instant)] ["." duration]] @@ -22,7 +22,7 @@ ["." template]] [world ["." binary (#+ Binary)]] - ["." io (#+ IO) ("#/." functor)] + ["." io (#+ IO) ("#;." functor)] [host (#+ import:)] [tool [compiler @@ -114,14 +114,14 @@ [[delete]]])) (def: move (..can-open - (|>> (!.use (:: file move)) (io/map (error/map async-file)) promise.future)))))) + (|>> (!.use (:: file move)) (io;map (error;map async-file)) promise.future)))))) (def: (async-directory directory) (-> (Directory IO) (Directory Promise)) (`` (structure (~~ (do-template [<name> <async>] [(def: <name> (..can-query (|>> (!.use (:: directory <name>)) - (io/map (error/map (list/map <async>))) + (io;map (error;map (list;map <async>))) promise.future)))] [files ..async-file] @@ -135,7 +135,7 @@ (`` (structure (~~ (do-template [<name> <async>] [(def: <name> (..can-open - (|>> (!.use (:: system <name>)) (io/map (error/map <async>)) promise.future)))] + (|>> (!.use (:: system <name>)) (io;map (error;map <async>)) promise.future)))] [file ..async-file] [create-file ..async-file] @@ -327,7 +327,7 @@ (|> children array.to-list (monad.filter @ (|>> <method>)) - (:: @ map (monad.map @ (|>> java/io/File::getAbsolutePath (:: @ map <capability>)))) + (:: @ map (monad.map @ (|>> java/io/File::getAbsolutePath (:: @ map <capability>)))) (:: @ join)) #.None diff --git a/stdlib/source/lux/world/net/http/cookie.lux b/stdlib/source/lux/world/net/http/cookie.lux index 4f10a6dc8..8bb3285ad 100644 --- a/stdlib/source/lux/world/net/http/cookie.lux +++ b/stdlib/source/lux/world/net/http/cookie.lux @@ -2,7 +2,7 @@ [lux #* [control [monad (#+ do)] - ["p" parser ("#/." monad)]] + ["p" parser ("#;." monad)]] [data ["." error (#+ Error)] [text @@ -78,7 +78,7 @@ [context' (..cookie context) _ (l.this "; ")] (cookies context')) - (p/wrap context))) + (p;wrap context))) (def: #export (get header) (-> Text (Error Context)) diff --git a/stdlib/source/lux/world/net/http/request.lux b/stdlib/source/lux/world/net/http/request.lux index fac71de93..e13ae884d 100644 --- a/stdlib/source/lux/world/net/http/request.lux +++ b/stdlib/source/lux/world/net/http/request.lux @@ -16,7 +16,7 @@ ["." json (#+ JSON)] ["." context (#+ Context Property)]] [collection - ["." list ("#/." functor fold)] + ["." list ("#;." functor fold)] ["." dictionary]]] [world ["." binary (#+ Binary)]]] @@ -34,8 +34,8 @@ (:: error.functor map (|>> [(n/+ amount offset)]) (binary.copy amount 0 input offset output)))) [0 (|> inputs - (list/map binary.size) - (list/fold n/+ 0) + (list;map binary.size) + (list;fold n/+ 0) binary.create)] inputs))] output)) diff --git a/stdlib/source/lux/world/net/http/response.lux b/stdlib/source/lux/world/net/http/response.lux index 93d6f0df9..bac0fcaaa 100644 --- a/stdlib/source/lux/world/net/http/response.lux +++ b/stdlib/source/lux/world/net/http/response.lux @@ -3,7 +3,7 @@ [control [concurrency ["." promise] - ["." frp ("#/." monad)]]] + ["." frp ("#;." monad)]]] [data ["." text format @@ -12,7 +12,7 @@ ["." html] ["." css (#+ CSS)] ["." context] - ["." json (#+ JSON) ("#/." codec)]]] + ["." json (#+ JSON) ("#;." codec)]]] ["." io] [world ["." binary (#+ Binary)]]] @@ -29,7 +29,7 @@ (def: #export empty (-> Status Response) - (let [body (frp/wrap (encoding.to-utf8 ""))] + (let [body (frp;wrap (encoding.to-utf8 ""))] (function (_ status) [status {#//.headers (|> context.empty @@ -52,7 +52,7 @@ {#//.headers (|> context.empty (header.content-length (binary.size data)) (header.content-type type)) - #//.body (frp/wrap data)}]) + #//.body (frp;wrap data)}]) (def: #export bad-request (-> Text Response) diff --git a/stdlib/source/lux/world/net/http/route.lux b/stdlib/source/lux/world/net/http/route.lux index 4359735c6..b3e3c3639 100644 --- a/stdlib/source/lux/world/net/http/route.lux +++ b/stdlib/source/lux/world/net/http/route.lux @@ -6,7 +6,7 @@ ["." promise]]] [data ["." maybe] - ["." text ("#/." equivalence)]]] + ["." text ("#;." equivalence)]]] ["." // (#+ URI Server) ["#." status] ["#." response]]) diff --git a/stdlib/source/lux/world/service/journal.lux b/stdlib/source/lux/world/service/journal.lux index 1bd9c3fda..6a2e8ff90 100644 --- a/stdlib/source/lux/world/service/journal.lux +++ b/stdlib/source/lux/world/service/journal.lux @@ -7,9 +7,9 @@ ["!" capability (#+ capability:)]]] [data [error (#+ Error)] - ["." text ("#/." equivalence)]] + ["." text ("#;." equivalence)]] [time - ["." instant (#+ Instant) ("#/." equivalence)]]]) + ["." instant (#+ Instant) ("#;." equivalence)]]]) (type: #export (Entry a) {#what a @@ -29,14 +29,14 @@ (def: bottom start) (def: top end))) -(structure: #export (equivalence (^open "_/.")) +(structure: #export (equivalence (^open "_;.")) (All [a] (-> (Equivalence a) (Equivalence (Entry a)))) (def: (= reference sample) - (and (_/= (get@ #what reference) (get@ #what sample)) - (text/= (get@ #why reference) (get@ #why sample)) - (text/= (get@ #how reference) (get@ #how sample)) - (text/= (get@ #who reference) (get@ #who sample)) - (text/= (get@ #where reference) (get@ #where sample)) + (and (_;= (get@ #what reference) (get@ #what sample)) + (text;= (get@ #why reference) (get@ #why sample)) + (text;= (get@ #how reference) (get@ #how sample)) + (text;= (get@ #who reference) (get@ #who sample)) + (text;= (get@ #where reference) (get@ #where sample)) (instant/= (get@ #when reference) (get@ #when sample))))) (capability: #export (Can-Write ! a) diff --git a/stdlib/source/lux/world/shell.lux b/stdlib/source/lux/world/shell.lux index a26d63259..82541c5f3 100644 --- a/stdlib/source/lux/world/shell.lux +++ b/stdlib/source/lux/world/shell.lux @@ -16,7 +16,7 @@ ["." context (#+ Context)]] [collection ["." array (#+ Array)] - ["." list ("#/." fold functor)] + ["." list ("#;." fold functor)] ["." dictionary]]] [tool [compiler @@ -39,7 +39,7 @@ dangerous) indices (list.n/range 0 (dec (text.size dangerous)))] (function (_ unsafe) - (list/fold (function (_ index safer) + (list;fold (function (_ index safer) (let [bad (|> dangerous (text.nth index) maybe.assume text.from-code) good (if windows? " " @@ -65,7 +65,7 @@ (def: (arguments-array arguments) (-> (List Text) (Array java/lang/String)) (product.right - (list/fold (function (_ argument [idx output]) + (list;fold (function (_ argument [idx output]) [(inc idx) (jvm.array-write idx argument output)]) [0 (jvm.array java/lang/String (list.size arguments))] arguments))) @@ -77,7 +77,7 @@ (-> Context (java/util/Map java/lang/String java/lang/String) (java/util/Map java/lang/String java/lang/String)) - (list/fold (function (_ [key value] target') + (list;fold (function (_ [key value] target') (exec (java/util/Map::put key value target') target')) target @@ -154,7 +154,7 @@ [windows? (:: @ map (|>> java/lang/String::toLowerCase ..windows?) (java/lang/System::getProperty "os.name")) #let [builder (java/lang/ProcessBuilder::new (arguments-array (list& (sanitize-command windows? command) - (list/map (sanitize-argument windows?) arguments))))] + (list;map (sanitize-argument windows?) arguments))))] environment (:: @ map (load-environment environment) (java/lang/ProcessBuilder::environment builder)) process (java/lang/ProcessBuilder::start builder)] |