diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 20 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/export.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/import.lux | 6 |
3 files changed, 13 insertions, 19 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 557e9d22a..f443301db 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -8,8 +8,6 @@ [control ["." io (#+ IO io)] ["." try (#+ Try)] - [security - ["!" capability]] [concurrency ["." promise (#+ Promise) ("#\." monad)]]] [data @@ -97,14 +95,14 @@ (! (Try (File !))) (:assume (file.get_file monad file_system package)))] - (!.use (\ (:share [!] - (Monad !) - monad - - (File !) - (:assume package)) - over_write) - [content])) + (\ (:share [!] + (Monad !) + monad + + (File !) + (:assume package)) + over_write + content)) (#try.Failure error) (\ monad wrap (#try.Failure error)))} @@ -118,7 +116,7 @@ (do (try.with monad) [package (: (Promise (Try (File Promise))) (file.get_file monad file_system package))] - (!.use (\ (: (File Promise) package) over_write) [content])) + (\ (: (File Promise) package) over_write content)) (#try.Failure error) (\ monad wrap (#try.Failure error)))))))) diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index 2c764aff9..238034534 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -5,9 +5,7 @@ [control ["." try (#+ Try)] [concurrency - ["." promise (#+ Promise)]] - [security - ["!" capability]]] + ["." promise (#+ Promise)]]] [data ["." text ["%" format (#+ format)]] @@ -72,4 +70,4 @@ (format target (\ system separator) ..file)))] (|> tar (binary.run tar.writer) - (!.use (\ package over_write))))) + (\ package over_write)))) diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux index 7b4a9262e..19a2d7607 100644 --- a/stdlib/source/program/compositor/import.lux +++ b/stdlib/source/program/compositor/import.lux @@ -7,8 +7,6 @@ ["." exception (#+ exception:)] [concurrency ["." promise (#+ Promise) ("#\." monad)]] - [security - ["!" capability]] ["<>" parser ["<b>" binary]]] [data @@ -47,8 +45,8 @@ (-> (file.System Promise) Library Import (Action Import)) (do (try.with promise.monad) [file (: (Action (File Promise)) - (!.use (\ system file) [library])) - binary (!.use (\ file content) [])] + (\ system file library)) + binary (\ file content [])] (promise\wrap (do {! try.monad} [tar (<b>.run tar.parser binary)] |