diff options
| author | Eduardo Julian | 2019-02-03 11:53:21 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-02-03 11:53:21 -0400 |
| commit | cf9e3fa6fef24cc0828ab882661fa96dc6f2570d (patch) | |
| tree | 082f91e8c84a72ace38a35b30a4acb61b8d27ab6 /stdlib/source/lux/data/number/ratio.lux | |
| parent | 700f82c940794684cbce9535274f6d7ea3f9c692 (diff) | |
Some refactoring around the identity function.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/data/number/ratio.lux | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/lux/data/number/ratio.lux b/stdlib/source/lux/data/number/ratio.lux index 647eaf4b5..1447040e6 100644 --- a/stdlib/source/lux/data/number/ratio.lux +++ b/stdlib/source/lux/data/number/ratio.lux @@ -8,12 +8,13 @@ monad ["p" parser]] [data - ["E" error] + ["." error] ["." product] ["." maybe] [number ("nat/." Codec<Text,Nat>)] ["." text ("text/." Monoid<Text>) format]] + ["." function] ["." math] ["." macro ["." code] @@ -121,7 +122,7 @@ (def: (negate (^slots [#numerator #denominator])) {#numerator denominator #denominator numerator}) - (def: abs id) + (def: abs function.identity) (def: (signum x) {#numerator 1 #denominator 1})) @@ -139,7 +140,7 @@ (def: (decode input) (case (text.split-with separator input) (#.Some [num denom]) - (do E.Monad<Error> + (do error.Monad<Error> [numerator (nat/decode num) denominator (nat/decode denom)] (wrap (normalize {#numerator numerator |