Mercurial > urweb

diff lib/ur/basis.urs @ 1120:74f2eb3b0606

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.debug; more restrictive type for Basis.form; weaken definition of polymorphic-ness for especialization
author Adam Chlipala <adamc@hcoop.net>
date Thu, 07 Jan 2010 14:02:58 -0500
parents 951fced704d6
children e1cf925e2074
line wrap: on
line diff
--- a/lib/ur/basis.urs	Tue Jan 05 15:53:35 2010 -0500
+++ b/lib/ur/basis.urs	Thu Jan 07 14:02:58 2010 -0500
@@ -657,7 +657,7 @@
                     Onload = transaction unit] ++ boxAttrs)
           
 val form : ctx ::: {Unit} -> bind ::: {Type}
-           -> [[Body, Form] ~ ctx] =>
+           -> [[Body, Form, Table] ~ ctx] =>
     xml ([Body, Form] ++ ctx) [] bind
     -> xml ([Body] ++ ctx) [] []
        
@@ -777,3 +777,6 @@
 
 type task_kind
 val initialize : task_kind
+
+
+val debug : string -> transaction unit