From cb8f2b36352948108446c7e3b270faa97589bf7a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Oct 2020 23:16:14 -0400
Subject: Some small refactoring.

---
 stdlib/source/program/licentia.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/licentia.lux')

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 _)
-- 
cgit v1.2.3