Mercurial > urweb

comparison lib/ur/monad.ur @ 834:74e9e7642f08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do 'open constraints' automatically; fix sourceless <cselect> monoize bug; Monad library module
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Jun 2009 11:50:53 -0400
parents
children d1d0b18afd3d
comparison
equal deleted inserted replaced
833:9a1026e2b3f5 834:74e9e7642f08
1 fun exec [m ::: Type -> Type] (_ : monad m) [ts ::: {Type}] r (fd : folder ts) =
2 foldR [m] [fn ts => m $ts]
3 (fn [nm :: Name] [v :: Type] [rest :: {Type}] [[nm] ~ rest] action acc =>
4 this <- action;
5 others <- acc;
6 return ({nm = this} ++ others))
7 (return {}) [ts] fd r