aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/world/db/jdbc/input.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-08-08 17:56:15 -0400
committerEduardo Julian2021-08-08 17:56:15 -0400
commitf621a133e6e0a516c0586270fea8eaffb4829d82 (patch)
tree399396ee2f6a10df10cea9b78c51c76679b70e59 /stdlib/source/library/lux/world/db/jdbc/input.lux
parent17e7566be51df5e428a6b10e6469201a8a9468da (diff)
No more #export magic syntax.
Diffstat (limited to 'stdlib/source/library/lux/world/db/jdbc/input.lux')
-rw-r--r--stdlib/source/library/lux/world/db/jdbc/input.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/world/db/jdbc/input.lux b/stdlib/source/library/lux/world/db/jdbc/input.lux
index 6033224eb..fe510ea66 100644
--- a/stdlib/source/library/lux/world/db/jdbc/input.lux
+++ b/stdlib/source/library/lux/world/db/jdbc/input.lux
@@ -43,34 +43,34 @@
[setTimestamp java/sql/Timestamp]
))))
-(type: #export (Input a)
+(type: .public (Input a)
(-> a [Nat java/sql/PreparedStatement]
(Try [Nat java/sql/PreparedStatement])))
-(implementation: #export contravariant (Contravariant Input)
+(implementation: .public contravariant (Contravariant Input)
(def: (map-1 f fb)
(function (fa value circumstance)
(fb (f value) circumstance))))
-(def: #export (and pre post)
+(def: .public (and pre post)
(All [l r] (-> (Input l) (Input r) (Input [l r])))
(function (_ [left right] context)
(do try.monad
[context (pre left context)]
(post right context))))
-(def: #export (fail error)
+(def: .public (fail error)
(All [a] (-> Text (Input a)))
(function (_ value [idx context])
(#try.Failure error)))
-(def: #export empty
+(def: .public empty
(Input Any)
(function (_ value context)
(#try.Success context)))
(template [<function> <type> <setter>]
- [(def: #export <function>
+ [(def: .public <function>
(Input <type>)
(function (_ value [idx statement])
(do try.monad
@@ -92,7 +92,7 @@
)
(template [<function> <setter> <constructor>]
- [(def: #export <function>
+ [(def: .public <function>
(Input Instant)
(function (_ value [idx statement])
(do try.monad