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/command/test.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index bbcb582b1..19ae5cd70 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -52,7 +52,7 @@
                with_target (: (-> Profile Profile)
                               (with@ #///.target target))
                with_test (: (-> Profile Profile)
-                            (with@ #///.test (#.Some test)))
+                            (with@ #///.test {#.Some test}))
                
                profile (|> empty_profile
                            with_test
@@ -83,7 +83,7 @@
                     [verdict (do ///action.monad
                                [.let [bad_shell (shell.mock
                                                  (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
-                                                   (#try.Success
+                                                   {#try.Success
                                                     (: (shell.Mock [])
                                                        (implementation
                                                         (def: (on_read state)
@@ -91,13 +91,13 @@
                                                         (def: (on_error state)
                                                           (exception.except shell.no_more_output []))
                                                         (def: (on_write input state)
-                                                          (#try.Failure "on_write"))
+                                                          {#try.Failure "on_write"})
                                                         (def: (on_destroy state)
-                                                          (#try.Failure "on_destroy"))
+                                                          {#try.Failure "on_destroy"})
                                                         (def: (on_await state)
-                                                          (#try.Success [state (if (list.any? (text\= "build") actual_arguments)
+                                                          {#try.Success [state (if (list.any? (text\= "build") actual_arguments)
                                                                                  shell.normal
-                                                                                 shell.error)]))))))
+                                                                                 shell.error)]})))})
                                                  [])]
                                 _ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async bad_shell) resolution
-- 
cgit v1.2.3