diff options
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 |