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.

---
 stdlib/source/test/aedifex/hash.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/test/aedifex/hash.lux')

diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux
index a3220b756..049023718 100644
--- a/stdlib/source/test/aedifex/hash.lux
+++ b/stdlib/source/test/aedifex/hash.lux
@@ -50,18 +50,18 @@
                                   [expected (..random <hash>)]
                                   (_.cover [<hash> <constructor> <exception>]
                                            (and (case (<constructor> (/.data expected))
-                                                  (#try.Success actual)
+                                                  {#try.Success actual}
                                                   (\ /.equivalence = expected actual)
 
-                                                  (#try.Failure error)
+                                                  {#try.Failure error}
                                                   false)
                                                 (case (<constructor> (\ binary.monoid composite
                                                                         (/.data expected)
                                                                         (/.data expected)))
-                                                  (#try.Success actual)
+                                                  {#try.Success actual}
                                                   false
 
-                                                  (#try.Failure error)
+                                                  {#try.Failure error}
                                                   (exception.match? <exception> error)))))]
 
                                [/.sha-1 /.as_sha-1 /.not_a_sha-1]
@@ -83,10 +83,10 @@
                                            (case (\ <codec> decoded
                                                     (format (\ <codec> encoded expected)
                                                             "AABBCC"))
-                                             (#try.Success actual)
+                                             {#try.Success actual}
                                              false
 
-                                             (#try.Failure error)
+                                             {#try.Failure error}
                                              (exception.match? /.not_a_hash error))))]
 
                                [/.sha-1_codec /.sha-1]
-- 
cgit v1.2.3