From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 10 Sep 2021 01:21:23 -0400
Subject: Migrated variants to the new syntax.

---
 licentia/source/program/licentia.lux        | 4 ++--
 licentia/source/program/licentia/output.lux | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'licentia/source/program')

diff --git a/licentia/source/program/licentia.lux b/licentia/source/program/licentia.lux
index 058f762c7..21ba1bbfd 100644
--- a/licentia/source/program/licentia.lux
+++ b/licentia/source/program/licentia.lux
@@ -76,8 +76,8 @@
                                          (\ ! each /output.license))))]
                 (\ file.default write (\ utf8.codec encoded document) output)))]
     (wrap (debug.log! (case ?done
-                        (#try.Success _)
+                        {#try.Success _}
                         (success_message output)
 
-                        (#try.Failure message)
+                        {#try.Failure message}
                         message)))))
diff --git a/licentia/source/program/licentia/output.lux b/licentia/source/program/licentia/output.lux
index c271f3005..3429df952 100644
--- a/licentia/source/program/licentia/output.lux
+++ b/licentia/source/program/licentia/output.lux
@@ -167,7 +167,7 @@
 (def: .public (extension value)
   (-> Extension Text)
   (let [[show? document] (case (value@ #license.notification_period value)
-                           (#.Some period)
+                           {#.Some period}
                            [true (extension.notification_requirement period)]
 
                            #.None
@@ -195,14 +195,14 @@
   (-> Attribution Text)
   (let [copyright_notice (format "Attribution Copyright Notice: " (value@ #license.copyright_notice value))
         phrase (case (value@ #license.phrase value)
-                 (#.Some phrase)
+                 {#.Some phrase}
                  (format text.new_line "Attribution Phrase: " phrase text.new_line)
 
                  #.None
                  "")
         url (format text.new_line "Attribution URL: " (value@ #license.url value))
         image (case (value@ #license.image value)
-                (#.Some image)
+                {#.Some image}
                 (format text.new_line "Attribution Image: " image)
 
                 #.None
@@ -258,7 +258,7 @@
                            (maybe\each ..identification)
                            (maybe.default ""))
         identified? (case (value@ #license.identification value)
-                      (#.Some _)
+                      {#.Some _}
                       true
 
                       #.None
-- 
cgit v1.2.3