summaryrefslogtreecommitdiff
path: root/lib/ur/monad.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-10-19 11:51:53 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-10-19 11:51:53 -0400
commit8bfef85c27fc16605ae5bf0e43975904900679c5 (patch)
treed7e12d54949ab6dec7a3ba37dffbeb9f7e5bca38 /lib/ur/monad.ur
parent0d52aedbd9ecc04c0540ad7d7d7ff2b5051dcaa5 (diff)
Monad.appR
Diffstat (limited to 'lib/ur/monad.ur')
-rw-r--r--lib/ur/monad.ur10
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/ur/monad.ur b/lib/ur/monad.ur
index 487aef26..0eb1a251 100644
--- a/lib/ur/monad.ur
+++ b/lib/ur/monad.ur
@@ -93,6 +93,16 @@ fun foldMapR [K] [m] (_ : monad m) [tf :: K -> Type] [tf' :: K -> Type] [tr :: {
(fn _ => return ({}, i))
fl
+fun appR [K] [m] (_ : monad m) [tf :: K -> Type]
+ (f : nm :: Name -> t :: K -> tf t -> m unit)
+ [r ::: {K}] (fl : folder r) =
+ @Top.fold [fn r :: {K} => $(map tf r) -> m unit]
+ (fn [nm :: Name] [t :: K] [rest :: {K}] [[nm] ~ rest] acc r =>
+ acc (r -- nm);
+ f [nm] [t] r.nm)
+ (fn _ => return ())
+ fl
+
fun appR2 [K] [m] (_ : monad m) [tf1 :: K -> Type] [tf2 :: K -> Type]
(f : nm :: Name -> t :: K -> tf1 t -> tf2 t -> m unit)
[r ::: {K}] (fl : folder r) =