diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux index a229c78a1..f888e6975 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux @@ -14,7 +14,7 @@ ["." encoding]] [collection ["." row] - ["." list ("#\." functor fold)] + ["." list ("#\." functor mix)] ["." dictionary (#+ Dictionary)] ["." set]] [format @@ -58,19 +58,19 @@ (-> Output (Try _.Expression)) (|>> row.list (list\map product.right) - (monad.fold try.monad - (function (_ content so_far) - (|> content - (\ encoding.utf8 decode) - (\ try.monad map - (|>> :expected - (:sharing [directive] - directive - so_far - - directive) - (..then so_far))))) - (: _.Expression (_.manual ""))))) + (monad.mix try.monad + (function (_ content so_far) + (|> content + (\ encoding.utf8 decoded) + (\ try.monad map + (|>> :expected + (:sharing [directive] + directive + so_far + + directive) + (..then so_far))))) + (: _.Expression (_.manual ""))))) (def: module_file (-> archive.ID file.Path) @@ -108,10 +108,10 @@ set.list (list.all (function (_ module) (dictionary.value module mapping))) (list\map (|>> ..module_file _.string _.load_relative/1)) - (list\fold ..then bundle) + (list\mix ..then bundle) (: _.Expression) _.code - (\ encoding.utf8 encode) + (\ encoding.utf8 encoded) tar.content)) module_file (tar.path (..module_file module_id))] (in (#tar.Normal [module_file now ..mode ..ownership entry_content])))) |