Mercurial > urweb
comparison lib/ur/monad.ur @ 1313:0bf73c3e4563
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 |