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/specification/compositor.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/specification/compositor.lux')

diff --git a/stdlib/source/specification/compositor.lux b/stdlib/source/specification/compositor.lux
index a2569f334..2668d36ca 100644
--- a/stdlib/source/specification/compositor.lux
+++ b/stdlib/source/specification/compositor.lux
@@ -58,10 +58,10 @@
                                                         expander
                                                         program))]]
     (case ?state,runner,definer
-      (#try.Success [[directive_bundle directive_state] runner definer])
+      {#try.Success [[directive_bundle directive_state] runner definer]}
       (..test runner definer
               (value@ [#directive.analysis #directive.state] directive_state)
               expander)
 
-      (#try.Failure error)
+      {#try.Failure error}
       (_.failure error))))
-- 
cgit v1.2.3