Mercurial > urweb

diff src/core_util.sml @ 1294:b4480a56cab7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Server-side 'onError'
author Adam Chlipala <adam@chlipala.net>
date Tue, 07 Sep 2010 08:28:07 -0400
parents c316ca3c9ec6
children 0577be31a435
line wrap: on
line diff
--- a/src/core_util.sml	Sun Sep 05 14:00:57 2010 -0400
+++ b/src/core_util.sml	Tue Sep 07 08:28:07 2010 -0400
@@ -997,6 +997,8 @@
                      fn e' =>
                         (DPolicy e', loc))
 
+              | DOnError _ => S.return2 dAll
+
         and mfvi ctx (x, n, t, e, s) =
             S.bind2 (mfc ctx t,
                   fn t' =>
@@ -1152,6 +1154,7 @@
                                         end
                                       | DTask _ => ctx
                                       | DPolicy _ => ctx
+                                      | DOnError _ => ctx
                             in
                                 S.map2 (mff ctx' ds',
                                      fn ds' =>
@@ -1216,7 +1219,8 @@
                           | DCookie (_, n, _, _) => Int.max (n, count)
                           | DStyle (_, n, _) => Int.max (n, count)
                           | DTask _ => count
-                          | DPolicy _ => count) 0
+                          | DPolicy _ => count
+                          | DOnError _ => count) 0
               
 end