From c274a689b2ff024a985fe3e64086ab47e098a807 Mon Sep 17 00:00:00 2001
From: Karn Kallio <kkallio@eka>
Date: Wed, 22 Jun 2011 12:58:43 -0530
Subject: Add rowspan attribute to td,th elements.

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

(limited to 'lib/ur')

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index bb671388..c4f5b2aa 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -824,10 +824,10 @@ val tr : other ::: {Unit} -> [other ~ [Body, Table, Tr]] => unit
   -> tag tableAttrs
          ([Body, Table] ++ other) ([Body, Tr] ++ other) [] []
 val th : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
-  -> tag ([Colspan = int] ++ tableAttrs)
+  -> tag ([Colspan = int, Rowspan = int] ++ tableAttrs)
          ([Body, Tr] ++ other) ([Body] ++ other) [] []
 val td : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
-  -> tag ([Colspan = int] ++ tableAttrs)
+  -> tag ([Colspan = int, Rowspan = int] ++ tableAttrs)
          ([Body, Tr] ++ other) ([Body] ++ other) [] []
 
 
-- 
cgit v1.2.3