Mercurial > urweb

diff lib/ur/option.ur @ 844:74a1e3bdf430

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix datatype import bug in Elaborate; fix server-side source setting; more standard library stuff
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Jun 2009 16:45:00 -0400
parents 44c2c089ca15
children 0d30e6338c65
line wrap: on
line diff
--- a/lib/ur/option.ur	Sun Jun 07 14:15:22 2009 -0400
+++ b/lib/ur/option.ur	Sun Jun 07 16:45:00 2009 -0400
@@ -4,3 +4,8 @@
     case x of
         None => False
       | Some _ => True
+
+fun mp [a] [b] f x =
+    case x of
+        None => None
+      | Some y => Some (f y)