From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 9 Dec 2009 09:47:16 +0000
Subject: moving a few things to deprecated

---
 deprecated/old-lib/prelude/HTML.gf | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 deprecated/old-lib/prelude/HTML.gf

(limited to 'deprecated/old-lib/prelude/HTML.gf')

diff --git a/deprecated/old-lib/prelude/HTML.gf b/deprecated/old-lib/prelude/HTML.gf
new file mode 100644
index 000000000..b469b582c
--- /dev/null
+++ b/deprecated/old-lib/prelude/HTML.gf
@@ -0,0 +1,8 @@
+resource HTML = open Prelude in {
+  oper
+    tag : Str -> Str = \t -> "<" + t + ">" ;
+    endtag : Str -> Str = \t -> tag ("/" + t) ;
+    intag : Str -> Str -> Str = \t,s -> tag t ++ s ++ endtag t ;
+    intagAttr : Str -> Str -> Str -> Str = 
+      \t,a,s -> ("<" + t) ++ (a + ">") ++ s ++ endtag t ;
+}
-- 
cgit v1.2.3