diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-07-19 17:45:02 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-07-19 17:45:02 -0400 |
| commit | 94a1373401529f500640b0c0628e7173612cdabe (patch) | |
| tree | 89ce0f6149e50fdfece4b083c2be2033c7727c63 /lib/ur/monad.ur | |
| parent | 19cd9e965929d541e6714f62154f01b9e487a712 (diff) | |
Working on Grid; have gone from one dynamic table bizareness to another
Diffstat (limited to 'lib/ur/monad.ur')
| -rw-r--r-- | lib/ur/monad.ur | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ur/monad.ur b/lib/ur/monad.ur index 41f44d3a..73001094 100644 --- a/lib/ur/monad.ur +++ b/lib/ur/monad.ur @@ -5,3 +5,5 @@ fun exec [m ::: Type -> Type] (_ : monad m) [ts ::: {Type}] r (fd : folder ts) = others <- acc; return ({nm = this} ++ others)) (return {}) [ts] fd r + +fun ignore [m ::: Type -> Type] (_ : monad m) [t] (v : m t) = x <- v; return () |