diff options
| author | Eduardo Julian | 2020-10-25 23:16:14 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-25 23:16:14 -0400 |
| commit | cb8f2b36352948108446c7e3b270faa97589bf7a (patch) | |
| tree | 25ebf796bbbd3ad31519745b7276d38f6c19726c /stdlib/source/program/licentia.lux | |
| parent | 72b4eecdc514387ab3b1c105cfd49436c9eb1e8d (diff) | |
Some small refactoring.
Diffstat (limited to 'stdlib/source/program/licentia.lux')
| -rw-r--r-- | stdlib/source/program/licentia.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/program/licentia.lux b/stdlib/source/program/licentia.lux index 7eab5b444..244e28223 100644 --- a/stdlib/source/program/licentia.lux +++ b/stdlib/source/program/licentia.lux @@ -57,7 +57,7 @@ (do io.monad [?done (: (IO (Try Any)) (do (try.with io.monad) - [file (!.use (:: file.system file) input) + [file (!.use (:: file.default file) input) blob (!.use (:: file content) []) document (io;wrap (do try.monad [raw-json (encoding.from-utf8 blob) @@ -69,7 +69,7 @@ license (json.run json /input.license)] (wrap (/output.license license)))) output-file (: (IO (Try (File IO))) - (file.get-file io.monad file.system output))] + (file.get-file io.monad file.default output))] (!.use (:: output-file over-write) (encoding.to-utf8 document))))] (case ?done (#try.Success _) |