diff options
Diffstat (limited to 'stdlib/source/library/lux/control/remember.lux')
-rw-r--r-- | stdlib/source/library/lux/control/remember.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/control/remember.lux b/stdlib/source/library/lux/control/remember.lux index b7047517d..f8a0dbc2d 100644 --- a/stdlib/source/library/lux/control/remember.lux +++ b/stdlib/source/library/lux/control/remember.lux @@ -7,14 +7,14 @@ ["[0]" io] ["[0]" try] ["[0]" exception {"+" [exception:]}] - ["<>" parser ("[1]\[0]" functor) + ["<>" parser ("[1]#[0]" functor) ["<c>" code {"+" [Parser]}]]] [data ["[0]" text ["%" format {"+" [format]}]]] [time ["[0]" instant] - ["[0]" date {"+" [Date]} ("[1]\[0]" order)]] + ["[0]" date {"+" [Date]} ("[1]#[0]" order)]] ["[0]" meta] [macro ["[0]" code] @@ -39,11 +39,11 @@ (def: deadline (Parser Date) ($_ <>.either - (<>\each (|>> instant.of_millis instant.date) + (<>#each (|>> instant.of_millis instant.date) <c>.int) (do <>.monad [raw <c>.text] - (case (\ date.codec decoded raw) + (case (# date.codec decoded raw) {try.#Success date} (in date) @@ -55,7 +55,7 @@ focus (<>.maybe <c>.any)]) (let [now (io.run! instant.now) today (instant.date now)] - (if (date\< deadline today) + (if (date#< deadline today) (in (case focus {.#Some focus} (list focus) |