Mercurial > urweb

diff src/mono_reduce.sml @ 1293:acabf3935060

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tryDml
author Adam Chlipala <adam@chlipala.net>
date Sun, 05 Sep 2010 14:00:57 -0400
parents 950d1e540df6
children e665527fce1c
line wrap: on
line diff
--- a/src/mono_reduce.sml	Sun Sep 05 12:50:06 2010 -0400
+++ b/src/mono_reduce.sml	Sun Sep 05 14:00:57 2010 -0400
@@ -465,7 +465,7 @@
                                      [ReadDb],
                                      summarize (d + 2) body]
 
-                      | EDml e => summarize d e @ [WriteDb]
+                      | EDml (e, _) => summarize d e @ [WriteDb]
                       | ENextval e => summarize d e @ [WriteDb]
                       | ESetval (e1, e2) => summarize d e1 @ summarize d e2 @ [WriteDb]
                       | EUnurlify (e, _, _) => summarize d e