Mercurial > urweb

diff lib/ur/monad.ur @ 898:d1d0b18afd3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Working on Grid; have gone from one dynamic table bizareness to another
author Adam Chlipala <adamc@hcoop.net>
date Sun, 19 Jul 2009 17:45:02 -0400
parents 74e9e7642f08
children 7a4b026e45dd
line wrap: on
line diff
--- a/lib/ur/monad.ur	Sat Jul 18 15:08:21 2009 -0400
+++ b/lib/ur/monad.ur	Sun Jul 19 17:45:02 2009 -0400
@@ -5,3 +5,5 @@
         others <- acc;
         return ({nm = this} ++ others))
     (return {}) [ts] fd r
+
+fun ignore [m ::: Type -> Type] (_ : monad m) [t] (v : m t) = x <- v; return ()