From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/program/aedifex.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/aedifex.lux')

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index d14e5ba74..1de6b7d30 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -92,7 +92,7 @@
 
          _
          (do async.monad
-           [_ (# program exit exit_code)]
+           [_ (at program exit exit_code)]
            (in {try.#Failure ""})))]
     (in output)))
 
@@ -106,13 +106,13 @@
 
 (def: succeed!
   (IO Any)
-  (# program.default exit shell.normal))
+  (at program.default exit shell.normal))
 
 (def: (fail! error)
   (-> Text (IO Any))
   (exec
     (debug.log! error)
-    (# program.default exit shell.error)))
+    (at program.default exit shell.error)))
 
 (def: (command action)
   (All (_ a) (-> (Async (Try a)) (IO Any)))
@@ -126,7 +126,7 @@
 
          {try.#Failure error}
          (..fail! error))))
-    (# io.monad in [])))
+    (at io.monad in [])))
 
 (exception: .public invalid_operation)
 
@@ -152,12 +152,12 @@
 
 (program: [[profiles operation] /cli.command]
   (do [! io.monad]
-    [console (# ! each (|>> (try.else ..write_only) console.async)
-                console.default)]
+    [console (at ! each (|>> (try.else ..write_only) console.async)
+                 console.default)]
     (case operation
       {/cli.#Version}
       (..command
-       (/command/version.do! console (# /.monoid identity)))
+       (/command/version.do! console (at /.monoid identity)))
 
       _
       (do !
-- 
cgit v1.2.3