From 34e310622bdeb1d0588c0664c0e78cbaa84f837c Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 2 Dec 2020 06:42:20 -0400 Subject: Re-named "::" and ":::" macros to "\" and "\\", to be consistent with the convention that only macros that deal with types may start with a colon. --- stdlib/source/program/licentia.lux | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'stdlib/source/program/licentia.lux') diff --git a/stdlib/source/program/licentia.lux b/stdlib/source/program/licentia.lux index e9b4f0074..e95c261a9 100644 --- a/stdlib/source/program/licentia.lux +++ b/stdlib/source/program/licentia.lux @@ -57,20 +57,20 @@ (do io.monad [?done (: (IO (Try Any)) (do (try.with io.monad) - [file (!.use (:: file.default file) input) - blob (!.use (:: file content) []) + [file (!.use (\ file.default file) input) + blob (!.use (\ file content) []) document (io\wrap (do try.monad [raw-json (encoding.from-utf8 blob) json (|> raw-json (:coerce java/lang/String) java/lang/String::trim (:coerce Text) - (:: json.codec decode)) + (\ json.codec decode)) license (json.run json /input.license)] (wrap (/output.license license)))) output-file (: (IO (Try (File IO))) (file.get-file io.monad file.default output))] - (!.use (:: output-file over-write) (encoding.to-utf8 document))))] + (!.use (\ output-file over-write) (encoding.to-utf8 document))))] (case ?done (#try.Success _) (wrap (log! (success-message output))) -- cgit v1.2.3