diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/time/instant.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/time/instant.lux b/stdlib/source/lux/time/instant.lux index c626e9ec4..f93cfbad4 100644 --- a/stdlib/source/lux/time/instant.lux +++ b/stdlib/source/lux/time/instant.lux @@ -133,7 +133,7 @@ (def: (pad value) (-> Int Text) (if (i.< 10 value) - (text/append "0" (int/encode value)) + (text/compose "0" (int/encode value)) (int/encode value))) (def: (adjust-negative space duration) @@ -145,10 +145,10 @@ (def: (encode-millis millis) (-> Int Text) (cond (i.= 0 millis) "" - (i.< 10 millis) ($_ text/append ".00" (int/encode millis)) - (i.< 100 millis) ($_ text/append ".0" (int/encode millis)) + (i.< 10 millis) ($_ text/compose ".00" (int/encode millis)) + (i.< 100 millis) ($_ text/compose ".0" (int/encode millis)) ## (i.< 1_000 millis) - ($_ text/append "." (int/encode millis)))) + ($_ text/compose "." (int/encode millis)))) (def: seconds-per-day Int (duration;query duration;second duration;day)) (def: days-up-to-epoch Int 719468) @@ -202,7 +202,7 @@ [minutes day-time] [(duration;query duration;minute day-time) (duration;frame duration;minute day-time)] [seconds millis] [(duration;query duration;second day-time) (duration;frame duration;second day-time)] ] - ($_ text/append (int/encode year) "-" (pad month) "-" (pad day) "T" + ($_ text/compose (int/encode year) "-" (pad month) "-" (pad day) "T" (pad hours) ":" (pad minutes) ":" (pad seconds) (|> millis (adjust-negative duration;second) |