diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2016-10-23 14:26:59 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2016-10-23 14:26:59 -0400 |
| commit | 235602373c04aa38b7f8c93e6efbd9276ecc2266 (patch) | |
| tree | 97c39e67902dd84d088ab930d8675e90760a674a /lib/ur/top.urs | |
| parent | c921d0df325c803fed8c7742eb088cb3d030d541 (diff) | |
| parent | 20f3308b8c2a5a331239839e222bd21befde73eb (diff) | |
Merge branch 'upstream' into dfsg_clean20161022+dfsg
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index 8273db0c..ec098955 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -126,6 +126,10 @@ val mapUX : tf :: Type -> ctx :: {Unit} -> (nm :: Name -> rest :: {Unit} -> [[nm] ~ rest] => tf -> xml ctx [] []) -> r ::: {Unit} -> folder r -> $(mapU tf r) -> xml ctx [] [] +val mapUX_rev : tf :: Type -> ctx :: {Unit} + -> (nm :: Name -> rest :: {Unit} -> [[nm] ~ rest] => + tf -> xml ctx [] []) + -> r ::: {Unit} -> folder r -> $(mapU tf r) -> xml ctx [] [] (* Generate some XML by mapping over a heterogenously-typed record *) val mapX : K --> tf :: (K -> Type) -> ctx :: {Unit} |