Mercurial > urweb

diff lib/ur/list.urs @ 830:d07980bf1444

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Defer pattern-matching exhaustiveness checks and normalize pattern types more thoroughly
author Adam Chlipala <adamc@hcoop.net>
date Sat, 30 May 2009 14:44:29 -0400
parents d4e811beb8eb
children b2413e4dd109
line wrap: on
line diff
--- a/lib/ur/list.urs	Sat May 30 13:29:00 2009 -0400
+++ b/lib/ur/list.urs	Sat May 30 14:44:29 2009 -0400
@@ -15,7 +15,10 @@
 val mapX : a ::: Type -> ctx ::: {Unit} -> (a -> xml ctx [] []) -> t a -> xml ctx [] []
 
 val mapM : m ::: (Type -> Type) -> monad m -> a ::: Type -> b ::: Type
-           -> (a -> m b) -> list a -> m (list b)
+           -> (a -> m b) -> t a -> m (t b)
+
+val mapXM : m ::: (Type -> Type) -> monad m -> a ::: Type -> ctx ::: {Unit}
+            -> (a -> m (xml ctx [] [])) -> t a -> m (xml ctx [] [])
 
 val filter : a ::: Type -> (a -> bool) -> t a -> t a