Mercurial > urweb
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 |