From 90399879ee7cc61e6333f7e81141441d32fcdb2e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 3 Aug 2015 01:29:48 -0400
Subject: Implemented text-interpolation through a macro ("<>") in
 lux/data/text

---
 source/program.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'source/program.lux')

diff --git a/source/program.lux b/source/program.lux
index ae3421078..b7cce5714 100644
--- a/source/program.lux
+++ b/source/program.lux
@@ -17,7 +17,8 @@
                        hash
                        ord
                        show
-                       number)
+                       number
+                       stack)
               (data bool
                     char
                     (either #as e)
@@ -28,7 +29,7 @@
                     maybe
                     (number int
                             real)
-                    (text #as t #open ("text:" Text/Monoid))
+                    (text #as t #refer (#only <>) #open ("text:" Text/Monoid))
                     writer
                     tuple)
               (codata (stream #as S)
@@ -46,7 +47,7 @@
 (program args
   (case args
     (\ (list name))
-    (println ($ text:++ "Hello, " name "!"))
+    (println (<> "Hello, #{name}!"))
 
     _
     (println "Hello, world!")))
-- 
cgit v1.2.3