From e74f91d28381be3758a53da75985afa05a06680d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 4 Apr 2009 11:46:24 -0400
Subject: Checking spans in dyns

---
 lib/ur/basis.urs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/ur/basis.urs')

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 586c5ef9..f95e8eba 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -375,8 +375,8 @@ con form = [Body, Form]
 con tabl = [Body, Table]
 con tr = [Body, Tr]
 
-val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> unit
-          -> tag [Signal = signal (xml ctx use bind)] ctx [] use bind
+val dyn : use ::: {Type} -> bind ::: {Type} -> unit
+          -> tag [Signal = signal (xml body use bind)] body [] use bind
 
 val head : unit -> tag [] html head [] []
 val title : unit -> tag [] head [] [] []
@@ -393,6 +393,8 @@ con bodyTagStandalone = fn (attrs :: {Type}) =>
 
 val br : bodyTagStandalone []
 
+val span : bodyTag []
+
 val p : bodyTag []
 val b : bodyTag []
 val i : bodyTag []
-- 
cgit v1.2.3