aboutsummaryrefslogtreecommitdiff
path: root/source/lux/data/text.lux
diff options
context:
space:
mode:
Diffstat (limited to 'source/lux/data/text.lux')
-rw-r--r--source/lux/data/text.lux17
1 files changed, 9 insertions, 8 deletions
diff --git a/source/lux/data/text.lux b/source/lux/data/text.lux
index 6c3a3dfee..bbcb42d71 100644
--- a/source/lux/data/text.lux
+++ b/source/lux/data/text.lux
@@ -10,8 +10,7 @@
(show #as S)
(monad #as M #refer #all))
(data (number (int #open ("i" Int/Number Int/Ord)))
- maybe
- (list #refer (#only foldL @list @list&)))))
+ maybe)))
## [Functions]
(def #export (size x)
@@ -164,18 +163,20 @@
(-> Text (List AST))
(case (extract-var template)
(#;Some [pre var post])
- (@list& (text$ pre) (symbol$ ["" var])
- (unravel-template post))
+ (#;Cons (text$ pre)
+ (#;Cons (symbol$ ["" var])
+ (unravel-template post)))
#;None
- (@list (text$ template))))
+ (#;Cons (text$ template) #;Nil)))
(defmacro #export (<> tokens state)
(case tokens
- (\ (@list [_ (#;TextS template)]))
+ (#;Cons [_ (#;TextS template)] #;Nil)
(let [++ (symbol$ ["" ""])]
- (#;Right state (@list (` (;let [(~ ++) (;:: Text/Monoid m;++)]
- (;$ (~ ++) (~@ (unravel-template template))))))))
+ (#;Right state (#;Cons (` (;let [(~ ++) (;:: Text/Monoid m;++)]
+ (;$ (~ ++) (~@ (unravel-template template)))))
+ #;Nil)))
_
(#;Left "Wrong syntax for <>")))