diff options
| author | Eduardo Julian | 2021-08-08 17:56:15 -0400 | 
|---|---|---|
| committer | Eduardo Julian | 2021-08-08 17:56:15 -0400 | 
| commit | f621a133e6e0a516c0586270fea8eaffb4829d82 (patch) | |
| tree | 399396ee2f6a10df10cea9b78c51c76679b70e59 /stdlib/source/library/lux/world/db/jdbc/input.lux | |
| parent | 17e7566be51df5e428a6b10e6469201a8a9468da (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.lux | 14 | 
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 | 
