Mercurial > urweb

diff src/mono_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 acabf3935060
children 6c2e565adca6
line wrap: on
line diff
--- a/src/mono_util.sml	Sun Sep 05 14:00:57 2010 -0400
+++ b/src/mono_util.sml	Tue Sep 07 08:28:07 2010 -0400
@@ -538,6 +538,7 @@
                 S.map2 (mfpol ctx pol,
                      fn p' =>
                         (DPolicy p', loc))
+              | DOnError _ => S.return2 dAll
 
         and mfpol ctx pol =
             case pol of
@@ -644,6 +645,7 @@
                                       | DStyle _ => ctx
                                       | DTask _ => ctx
                                       | DPolicy _ => ctx
+                                      | DOnError _ => ctx
                             in
                                 S.map2 (mff ctx' ds',
                                      fn ds' =>
@@ -698,7 +700,8 @@
                           | DCookie _ => count
                           | DStyle _ => count
                           | DTask _ => count
-                          | DPolicy _ => count) 0
+                          | DPolicy _ => count
+                          | DOnError _ => count) 0
 
 end