comparison lib/ur/basis.urs @ 1348:8a169fc0838b

Change tasks to support parametric code; add clientLeaves
author Adam Chlipala <adam@chlipala.net>
date Sat, 18 Dec 2010 14:17:45 -0500
parents b106ca8200b1
children 87156c44824f
comparison
equal deleted inserted replaced
1347:b106ca8200b1 1348:8a169fc0838b
808 val show_xml : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> show (xml ctx use bind) 808 val show_xml : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> show (xml ctx use bind)
809 809
810 810
811 (** Tasks *) 811 (** Tasks *)
812 812
813 type task_kind 813 con task_kind :: Type -> Type
814 val initialize : task_kind 814 val initialize : task_kind unit
815 val clientLeaves : task_kind client
815 816
816 817
817 (** Information flow security *) 818 (** Information flow security *)
818 819
819 type sql_policy 820 type sql_policy