Mercurial > urweb
comparison demo/more/dnat.urs @ 1015:e47303e5d73d
Factor Dnat into separate module
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 25 Oct 2009 11:03:42 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
1014:ea9f03ac2710 | 1015:e47303e5d73d |
---|---|
1 type t | |
2 | |
3 val zero : transaction t | |
4 val inc : t -> transaction unit | |
5 val dec : t -> transaction unit | |
6 | |
7 val render : ctx ::: {Unit} -> inp ::: {Type} -> [[Body] ~ ctx] => | |
8 xml ([Body] ++ ctx) inp [] -> t -> xml ([Body] ++ ctx) inp [] |