diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/cache.lux | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache.lux b/stdlib/source/library/lux/tool/compiler/meta/cache.lux index d9ed86253..6b4194359 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/cache.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/cache.lux @@ -2,11 +2,9 @@ [library [lux "*" [abstract - [monad {"+" do}]] + [monad {"+" Monad do}]] [control - ["[0]" try {"+" Try}] - [concurrency - ["[0]" async {"+" Async}]]] + ["[0]" try {"+" Try}]] [data [text ["%" format {"+" format}]]] @@ -25,14 +23,12 @@ / (version.format //.version)))) (def: .public (enabled? fs context) - (-> (file.System Async) Context (Async Bit)) - (|> context - (..path fs) - (# fs directory?))) + (All (_ !) (-> (file.System !) Context (! Bit))) + (# fs directory? (..path fs context))) -(def: .public (enable! fs context) - (-> (file.System Async) Context (Async (Try Any))) - (do [! async.monad] +(def: .public (enable! ! fs context) + (All (_ !) (-> (Monad !) (file.System !) Context (! (Try Any)))) + (do ! [? (..enabled? fs context)] (if ? (in {try.#Success []}) |