From 6eadb8ba7c8a5eb268cd7a8d13bd63dcaa5f449f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 11 Feb 2019 00:28:08 -0400
Subject: Added the special # syntax for referring to the module's alias when
 opening structures.

---
 stdlib/source/lux/data/format/json.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/lux/data/format/json.lux')

diff --git a/stdlib/source/lux/data/format/json.lux b/stdlib/source/lux/data/format/json.lux
index e06948838..f2f7eef35 100644
--- a/stdlib/source/lux/data/format/json.lux
+++ b/stdlib/source/lux/data/format/json.lux
@@ -5,7 +5,7 @@
     ["." monad (#+ Monad do)]
     [equivalence (#+ Equivalence)]
     codec
-    ["p" parser (#+ Parser) ("parser/." monad)]
+    ["p" parser (#+ Parser) ("#/." monad)]
     ["ex" exception (#+ exception:)]]
    [data
     ["." bit]
@@ -14,12 +14,12 @@
     ["." sum]
     ["." product]
     [number
-     ["." frac ("frac/." decimal)]]
-    ["." text ("text/." equivalence monoid)
+     ["." frac ("#/." decimal)]]
+    ["." text ("#/." equivalence monoid)
      ["l" lexer]]
     [collection
-     ["." list ("list/." fold monad)]
-     ["." row (#+ Row row) ("row/." monad)]
+     ["." list ("#/." fold monad)]
+     ["." row (#+ Row row) ("#/." monad)]
      ["." dictionary (#+ Dictionary)]]]
    ["." macro (#+ monad with-gensyms)
     ["s" syntax (#+ syntax:)]
@@ -468,19 +468,19 @@
   (l.Lexer Text)
   ($_ p.either
       (p.after (l.this "\t")
-               (parser/wrap text.tab))
+               (p/wrap text.tab))
       (p.after (l.this "\b")
-               (parser/wrap text.back-space))
+               (p/wrap text.back-space))
       (p.after (l.this "\n")
-               (parser/wrap text.new-line))
+               (p/wrap text.new-line))
       (p.after (l.this "\r")
-               (parser/wrap text.carriage-return))
+               (p/wrap text.carriage-return))
       (p.after (l.this "\f")
-               (parser/wrap text.form-feed))
+               (p/wrap text.form-feed))
       (p.after (l.this (text/compose "\" text.double-quote))
-               (parser/wrap text.double-quote))
+               (p/wrap text.double-quote))
       (p.after (l.this "\\")
-               (parser/wrap "\"))))
+               (p/wrap "\"))))
 
 (def: string~
   (l.Lexer String)
-- 
cgit v1.2.3