aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/text/escape.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/data/text/escape.lux11
1 files changed, 5 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/data/text/escape.lux b/stdlib/source/library/lux/data/text/escape.lux
index f7fbaaf46..a8e2c79cc 100644
--- a/stdlib/source/library/lux/data/text/escape.lux
+++ b/stdlib/source/library/lux/data/text/escape.lux
@@ -5,12 +5,11 @@
[abstract
[monad (#+ do)]]
[control
+ ["." maybe]
["." try (#+ Try)]
["." exception (#+ exception:)]
["<>" parser
["<.>" code]]]
- [data
- ["." maybe]]
[math
[number (#+ hex)
["n" nat]]]
@@ -111,7 +110,7 @@
post_limit]))
(def: .public (escaped text)
- {#.doc (doc "Yields a escaped version of the text.")}
+ {#.doc (example "Yields a escaped version of the text.")}
(-> Text Text)
(loop [offset 0
previous ""
@@ -193,8 +192,8 @@
(exception.except ..invalid_unicode_escape [current offset])))
(def: .public (un_escaped text)
- {#.doc (doc "Yields an un-escaped text."
- "Fails if it was improperly escaped.")}
+ {#.doc (example "Yields an un-escaped text."
+ "Fails if it was improperly escaped.")}
(-> Text (Try Text))
(loop [offset 0
previous ""
@@ -240,7 +239,7 @@
_ (format previous current))))))
(syntax: .public (literal {literal <code>.text})
- {#.doc (doc "If given a escaped text literal, expands to an un-escaped version.")}
+ {#.doc (example "If given a escaped text literal, expands to an un-escaped version.")}
(case (..un_escaped literal)
(#try.Success un_escaped)
(in (list (code.text un_escaped)))