aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/cache.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/cache.lux')
-rw-r--r--stdlib/source/program/aedifex/cache.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/cache.lux b/stdlib/source/program/aedifex/cache.lux
index d6a8a70ef..50062c3f7 100644
--- a/stdlib/source/program/aedifex/cache.lux
+++ b/stdlib/source/program/aedifex/cache.lux
@@ -57,16 +57,16 @@
(|> package
(get@ #//package.sha-1)
(\ //hash.sha-1-codec encode)
- encoding.to-utf8)
+ (\ encoding.utf8 encode))
(format prefix //artifact/extension.sha-1))
_ (..write! system
(|> package
(get@ #//package.md5)
(\ //hash.md5-codec encode)
- encoding.to-utf8)
+ (\ encoding.utf8 encode))
(format prefix //artifact/extension.md5))
_ (..write! system
- (|> package (get@ #//package.pom) (\ xml.codec encode) encoding.to-utf8)
+ (|> package (get@ #//package.pom) (\ xml.codec encode) (\ encoding.utf8 encode))
(format prefix //artifact/extension.pom))]
(wrap artifact))))
@@ -91,7 +91,7 @@
(All [a] (-> (Codec Text a) Binary (Try a)))
(let [(^open "_\.") try.monad]
(|> data
- encoding.from-utf8
+ (\ encoding.utf8 decode)
(_\map (\ codec decode))
_\join)))