diff forms.urs @ 1:4d8165e8f89a

Some help with building forms
author Adam Chlipala <adam@chlipala.net>
date Thu, 06 Jan 2011 16:45:47 -0500
parents
children 1e04008eaef7
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/forms.urs	Thu Jan 06 16:45:47 2011 -0500
@@ -0,0 +1,4 @@
+datatype readiness a = Ready of a | Waiting | Invalid of string
+datatype rpcResult a = Success of a | Failure of string
+
+val warning : a ::: Type -> signal (readiness a) -> xbody