From f8c2389db4a9b3239b00b9d209237d5116e12e3c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 25 Jan 2017 07:02:33 -0400
Subject: - Renamed lux/data/struct/tree to lux/data/struct/tree/rose. - Moved
 lux/data/struct/zipper to lux/data/struct/tree/zipper. - Moved lux/regex to
 lux/lexer/regex. - Changed the suffix of annotation tags, from M to A. -
 Renamed Frac(tional) numbers to Deg(rees).

---
 stdlib/source/lux/data/format/json.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 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 d9ef60605..66ad6c093 100644
--- a/stdlib/source/lux/data/format/json.lux
+++ b/stdlib/source/lux/data/format/json.lux
@@ -190,7 +190,7 @@
 
 (do-template [<name> <tag> <type> <desc>]
   [(def: #export (<name> key json)
-     {#;doc (#;TextM (format "A JSON object field getter for " <desc> "."))}
+     {#;doc (#;TextA (format "A JSON object field getter for " <desc> "."))}
      (-> Text JSON (Error <type>))
      (case (get key json)
        (#;Right (<tag> value))
@@ -211,7 +211,7 @@
 
 (do-template [<name> <type> <tag> <desc>]
   [(def: #export (<name> value)
-     {#;doc (#;TextM (format "A JSON generator for " <desc> "."))}
+     {#;doc (#;TextA (format "A JSON generator for " <desc> "."))}
      (Gen <type>)
      (<tag> value))]
 
@@ -398,7 +398,7 @@
 ## Syntax
 (do-template [<name> <type> <tag> <desc> <pre>]
   [(def: #export (<name> json)
-     {#;doc (#;TextM (format "Reads a JSON value as " <desc> "."))}
+     {#;doc (#;TextA (format "Reads a JSON value as " <desc> "."))}
      (Parser <type>)
      (case json
        (<tag> value)
@@ -416,7 +416,7 @@
 
 (do-template [<test> <check> <type> <eq> <codec> <tag> <desc> <pre>]
   [(def: #export (<test> test json)
-     {#;doc (#;TextM (format "Asks whether a JSON value is a " <desc> "."))}
+     {#;doc (#;TextA (format "Asks whether a JSON value is a " <desc> "."))}
      (-> <type> (Parser Bool))
      (case json
        (<tag> value)
@@ -426,7 +426,7 @@
        (#;Left (format "JSON value is not a " <desc> ": " (show-json json)))))
 
    (def: #export (<check> test json)
-     {#;doc (#;TextM (format "Ensures a JSON value is a " <desc> "."))}
+     {#;doc (#;TextA (format "Ensures a JSON value is a " <desc> "."))}
      (-> <type> (Parser Unit))
      (case json
        (<tag> value)
-- 
cgit v1.2.3