Mercurial > urweb

diff lib/ur/basis.urs @ 941:b8d7a47b8e0c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed a Mono_reduce bug, which was breaking selection enabling in Grid
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Sep 2009 12:23:42 -0400
parents ed06e25c70ef
children 8c37699de273
line wrap: on
line diff
--- a/lib/ur/basis.urs	Tue Sep 15 11:18:20 2009 -0400
+++ b/lib/ur/basis.urs	Tue Sep 15 12:23:42 2009 -0400
@@ -680,10 +680,10 @@
   -> tag tableEvents
          ([Body, Table] ++ other) ([Body, Tr] ++ other) [] []
 val th : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
-  -> tag tableEvents
+  -> tag ([Colspan = int] ++ tableEvents)
          ([Body, Tr] ++ other) ([Body] ++ other) [] []
 val td : other ::: {Unit} -> [other ~ [Body, Tr]] => unit
-  -> tag tableEvents
+  -> tag ([Colspan = int] ++ tableEvents)
          ([Body, Tr] ++ other) ([Body] ++ other) [] []