Mercurial > urweb

diff src/cjrize.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/cjrize.sml	Sun Sep 05 14:00:57 2010 -0400
+++ b/src/cjrize.sml	Tue Sep 07 08:28:07 2010 -0400
@@ -675,6 +675,7 @@
            | _ => (ErrorMsg.errorAt loc "Initializer has not been fully determined";
                    (NONE, NONE, sm)))
       | L.DPolicy _ => (NONE, NONE, sm)
+      | L.DOnError n => (SOME (L'.DOnError n, loc), NONE, sm)
 
 fun cjrize ds =
     let