From bf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 Mar 2022 08:37:23 -0400
Subject: De-sigil-ification: prefix :

---
 licentia/source/program/licentia.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

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