Mercurial > urweb
diff demo/more/meta.urs @ 1011:16f7cb0891b6
Initial support for char in SQL
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 22 Oct 2009 16:15:56 -0400 |
parents | 59097824f19b |
children | 6bcc1020d5cd |
line wrap: on
line diff
--- a/demo/more/meta.urs Thu Oct 22 14:05:48 2009 -0400 +++ b/demo/more/meta.urs Thu Oct 22 16:15:56 2009 -0400 @@ -18,6 +18,9 @@ val allWidgets : ts ::: {(Type * Type)} -> $(map meta ts) -> folder ts -> xml form [] (map snd ts) +val allPopulated : ts ::: {(Type * Type)} -> $(map meta ts) -> $(map fst ts) -> folder ts + -> xml form [] (map snd ts) + val allPopulatedTr : ts ::: {(Type * Type)} -> $(map meta ts) -> $(map fst ts) -> folder ts -> xml ([Tr] ++ form) [] (map snd ts)