diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-09-08 10:55:49 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-08 10:55:49 -0400 |
commit | 74185b59e03d86fccafab554c04aa7171b1e22fd (patch) | |
tree | 7d2a84baa2e21562b0754815824f223d61a6621a /lib/ur/monad.ur | |
parent | 747601bae6e91f226a2c1374ad96cef51f85617b (diff) |
dragList demo working, save for Gecko load delay and highlighting
Diffstat (limited to 'lib/ur/monad.ur')
-rw-r--r-- | lib/ur/monad.ur | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/ur/monad.ur b/lib/ur/monad.ur index d6690839..96c46311 100644 --- a/lib/ur/monad.ur +++ b/lib/ur/monad.ur @@ -8,6 +8,10 @@ fun exec [m ::: Type -> Type] (_ : monad m) [ts ::: {Type}] r (fd : folder ts) = fun ignore [m ::: Type -> Type] (_ : monad m) [t] (v : m t) = x <- v; return () +fun mp [m] (_ : monad m) [a] [b] f m = + v <- m; + return (f v) + fun foldR [K] [m] (_ : monad m) [tf :: K -> Type] [tr :: {K} -> Type] (f : nm :: Name -> t :: K -> rest :: {K} -> [[nm] ~ rest] => |