From 35c0807799717cd720ab28b35851c1a01a67445d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 7 Sep 2021 22:50:21 -0400
Subject: De-taggification | part 4

---
 stdlib/source/library/lux/abstract/monad.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/library/lux/abstract/monad.lux')

diff --git a/stdlib/source/library/lux/abstract/monad.lux b/stdlib/source/library/lux/abstract/monad.lux
index cc2aadad1..b90a93580 100644
--- a/stdlib/source/library/lux/abstract/monad.lux
+++ b/stdlib/source/library/lux/abstract/monad.lux
@@ -2,7 +2,7 @@
   [library
    [lux "*"
     [meta
-     ["." location]]]]
+     ["[0]" location]]]]
   [//
    [functor {"+" [Functor]}]])
 
@@ -117,7 +117,7 @@
   (All (_ ! a)
     (-> (Monad !) (List (! a))
         (! (List a))))
-  (let [(^open "!\.") monad]
+  (let [(^open "!\[0]") monad]
     (function (recur xs)
       (case xs
         #.End
@@ -133,7 +133,7 @@
   (All (_ M a b)
     (-> (Monad M) (-> a (M b)) (List a)
         (M (List b))))
-  (let [(^open "!\.") monad]
+  (let [(^open "!\[0]") monad]
     (function (recur xs)
       (case xs
         #.End
@@ -149,7 +149,7 @@
   (All (_ ! a b)
     (-> (Monad !) (-> a (! Bit)) (List a)
         (! (List a))))
-  (let [(^open "!\.") monad]
+  (let [(^open "!\[0]") monad]
     (function (recur xs)
       (case xs
         #.End
-- 
cgit v1.2.3