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/test/licentia.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/licentia/source/test/licentia.lux b/licentia/source/test/licentia.lux
index 4940b31eb..7caf5301c 100644
--- a/licentia/source/test/licentia.lux
+++ b/licentia/source/test/licentia.lux
@@ -229,7 +229,7 @@
                      (present? extension.distinctness_requirement)))
       (_.test "The community must be notified of new extensions."
               (case (value@ #license.notification_period extension)
-                (#.Some period)
+                {#.Some period}
                 (present? (extension.notification_requirement period))
 
                 #.None
@@ -298,7 +298,7 @@
         
         (_.test "Identification is present (if the license is identified)."
                 (case (value@ #license.identification license)
-                  (#.Some identification)
+                  {#.Some identification}
                   (and (present? (output.identification identification))
                        (present? miscellaneous.new_versions))
 
@@ -308,7 +308,7 @@
         (_.test "Black-lists (if wanted by licensor) are explicitly enumerated and justified."
                 (list.every? (function (_ black_list)
                                (let [black_list_is_justified? (case (value@ #license.justification black_list)
-                                                                (#.Some justification)
+                                                                {#.Some justification}
                                                                 (present? justification)
 
                                                                 #.None
@@ -348,7 +348,7 @@
         (..about_extension present? (value@ #license.extension license))
 
         (case (value@ #license.attribution license)
-          (#.Some attribution)
+          {#.Some attribution}
           (..about_attribution present? attribution)
 
           #.None
-- 
cgit v1.2.3