diff options
Diffstat (limited to '')
| -rw-r--r-- | licentia/source/program/licentia.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/licentia/source/program/licentia.lux b/licentia/source/program/licentia.lux index 74d072067..7576f739a 100644 --- a/licentia/source/program/licentia.lux +++ b/licentia/source/program/licentia.lux @@ -63,18 +63,18 @@ (<cli>.named "--output") <cli>.any)] (do io.monad - [?done (: (IO (Try Any)) - (do (try.with io.monad) - [blob (# file.default read input) - document (io#wrap (do [! try.monad] - [raw_json (# utf8.codec decoded blob) - json (|> raw_json - java/lang/String::trim - (# json.codec decoded))] - (|> json - (<json>.result /input.license) - (# ! each /output.license))))] - (# file.default write (# utf8.codec encoded document) output)))] + [?done (is (IO (Try Any)) + (do (try.with io.monad) + [blob (# file.default read input) + document (io#wrap (do [! try.monad] + [raw_json (# utf8.codec decoded blob) + json (|> raw_json + java/lang/String::trim + (# json.codec decoded))] + (|> json + (<json>.result /input.license) + (# ! each /output.license))))] + (# file.default write (# utf8.codec encoded document) output)))] (wrap (debug.log! (case ?done {try.#Success _} (success_message output) |