Mercurial > urweb

diff lib/ur/basis.urs @ 1544:a99b743a3087

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.mkMonad
author Adam Chlipala <adam@chlipala.net>
date Fri, 19 Aug 2011 15:23:01 -0400
parents 27b8c0a460cf
children d5c961c709f9
line wrap: on
line diff
--- a/lib/ur/basis.urs	Fri Aug 19 14:20:24 2011 -0400
+++ b/lib/ur/basis.urs	Fri Aug 19 15:23:01 2011 -0400
@@ -126,6 +126,11 @@
            -> m t1 -> (t1 -> m t2)
            -> m t2
 
+val mkMonad : m ::: (Type -> Type)
+              -> {Return : t ::: Type -> t -> m t,
+                  Bind : t1 ::: Type -> t2 ::: Type -> m t1 -> (t1 -> m t2) -> m t2}
+              -> monad m
+
 con transaction :: Type -> Type
 val transaction_monad : monad transaction