aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/world
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/world')
-rw-r--r--stdlib/source/lux/world/db/jdbc.jvm.lux6
-rw-r--r--stdlib/source/lux/world/db/jdbc/input.jvm.lux2
-rw-r--r--stdlib/source/lux/world/db/sql.lux16
-rw-r--r--stdlib/source/lux/world/file.lux14
-rw-r--r--stdlib/source/lux/world/net/http/cookie.lux4
-rw-r--r--stdlib/source/lux/world/net/http/request.lux6
-rw-r--r--stdlib/source/lux/world/net/http/response.lux8
-rw-r--r--stdlib/source/lux/world/net/http/route.lux2
-rw-r--r--stdlib/source/lux/world/service/journal.lux16
-rw-r--r--stdlib/source/lux/world/shell.lux10
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)]
generated by cgit v1.2.3 (git 2.25.1) at 2024-08-28 05:14:15 +0000