diff options
author | Eduardo Julian | 2022-06-12 13:33:48 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-06-12 13:33:48 -0400 |
commit | 8c3a1afab9efeb86e2f53d743551fc689fbad257 (patch) | |
tree | 396b2fd29bac407544d2136a0d9e6e3b8b2c30af /stdlib/source/library/lux/target/jvm/bytecode/environment.lux | |
parent | 9c21fd1f33eb52fb971d493ad21a67036d68b841 (diff) |
De-sigil-ification: suffix : [Part 4]
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/target/jvm/bytecode/environment.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux index bcef16e3e..cc3ff123c 100644 --- a/stdlib/source/library/lux/target/jvm/bytecode/environment.lux +++ b/stdlib/source/library/lux/target/jvm/bytecode/environment.lux @@ -37,17 +37,17 @@ (type: .public Condition (-> Environment (Try Environment))) -(implementation: .public monoid +(def: .public monoid (Monoid Condition) - - (def: identity - (|>> {try.#Success})) - - (def: (composite left right) - (function (_ environment) - (do try.monad - [environment (left environment)] - (right environment))))) + (implementation + (def: identity + (|>> {try.#Success})) + + (def: (composite left right) + (function (_ environment) + (do try.monad + [environment (left environment)] + (right environment)))))) (exception: .public discontinuity) |