Mercurial > urweb

comparison lib/ur/monad.ur @ 1313:0bf73c3e4563

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Monad.appR3
author Adam Chlipala <adam@chlipala.net>
date Tue, 19 Oct 2010 15:26:12 -0400
parents 726f0caeea3f
children 18d18a70821e
comparison
equal deleted inserted replaced
1312:726f0caeea3f 1313:0bf73c3e4563
110 (fn [nm :: Name] [t :: K] [rest :: {K}] [[nm] ~ rest] acc r1 r2 => 110 (fn [nm :: Name] [t :: K] [rest :: {K}] [[nm] ~ rest] acc r1 r2 =>
111 acc (r1 -- nm) (r2 -- nm); 111 acc (r1 -- nm) (r2 -- nm);
112 f [nm] [t] r1.nm r2.nm) 112 f [nm] [t] r1.nm r2.nm)
113 (fn _ _ => return ()) 113 (fn _ _ => return ())
114 fl 114 fl
115
116 fun appR3 [K] [m] (_ : monad m) [tf1 :: K -> Type] [tf2 :: K -> Type] [tf3 :: K -> Type]
117 (f : nm :: Name -> t :: K -> tf1 t -> tf2 t -> tf3 t -> m unit)
118 [r ::: {K}] (fl : folder r) =
119 @Top.fold [fn r :: {K} => $(map tf1 r) -> $(map tf2 r) -> $(map tf3 r) -> m unit]
120 (fn [nm :: Name] [t :: K] [rest :: {K}] [[nm] ~ rest] acc r1 r2 r3 =>
121 acc (r1 -- nm) (r2 -- nm) (r3 -- nm);
122 f [nm] [t] r1.nm r2.nm r3.nm)
123 (fn _ _ _ => return ())
124 fl