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/time/duration.lux | |
parent | 9c21fd1f33eb52fb971d493ad21a67036d68b841 (diff) |
De-sigil-ification: suffix : [Part 4]
Diffstat (limited to 'stdlib/source/library/lux/time/duration.lux')
-rw-r--r-- | stdlib/source/library/lux/time/duration.lux | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/stdlib/source/library/lux/time/duration.lux b/stdlib/source/library/lux/time/duration.lux index e59e4c9f2..e608a8075 100644 --- a/stdlib/source/library/lux/time/duration.lux +++ b/stdlib/source/library/lux/time/duration.lux @@ -60,18 +60,18 @@ (-> Duration Duration Int) (i./ (representation param) (representation subject))) - (implementation: .public equivalence + (def: .public equivalence (Equivalence Duration) - - (def: (= param subject) - (i.= (representation param) (representation subject)))) + (implementation + (def: (= param subject) + (i.= (representation param) (representation subject))))) - (implementation: .public order + (def: .public order (Order Duration) - - (def: equivalence ..equivalence) - (def: (< param subject) - (i.< (representation param) (representation subject)))) + (implementation + (def: equivalence ..equivalence) + (def: (< param subject) + (i.< (representation param) (representation subject))))) (with_template [<op> <name>] [(def: .public <name> @@ -106,11 +106,11 @@ (def: .public leap_year (..composite ..day ..normal_year)) -(implementation: .public monoid +(def: .public monoid (Monoid Duration) - - (def: identity ..empty) - (def: composite ..composite)) + (implementation + (def: identity ..empty) + (def: composite ..composite))) (with_template [<value> <definition>] [(def: <definition> <value>)] @@ -181,21 +181,21 @@ {.#Left _} (..inverse span) {.#Right _} span))))) -(implementation: .public codec +(def: .public codec (Codec Text Duration) - - (def: encoded ..encoded) - (def: decoded (<text>.result ..parser))) + (implementation + (def: encoded ..encoded) + (def: decoded (<text>.result ..parser)))) (def: .public (difference from to) (-> Duration Duration Duration) (|> from ..inverse (..composite to))) -(implementation: .public enum +(def: .public enum (Enum Duration) - - (def: order ..order) - (def: succ - (..composite ..milli_second)) - (def: pred - (..composite (..inverse ..milli_second)))) + (implementation + (def: order ..order) + (def: succ + (..composite ..milli_second)) + (def: pred + (..composite (..inverse ..milli_second))))) |