Mercurial > urweb

diff src/mono_print.sml @ 687:a3ddf05fb3e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
On start-up, delete/nullify rows mentioning clients or channels
author Adam Chlipala <adamc@hcoop.net>
date Thu, 02 Apr 2009 11:42:26 -0400
parents 9a2c18dab11d
children 500e93aa436f
line wrap: on
line diff
--- a/src/mono_print.sml	Thu Apr 02 10:57:14 2009 -0400
+++ b/src/mono_print.sml	Thu Apr 02 11:42:26 2009 -0400
@@ -413,13 +413,16 @@
       | DSequence s => box [string "(* SQL sequence ",
                             string s,
                             string "*)"]
-      | DDatabase (s, n) => box [string "database",
-                                 space,
-                                 string s,
-                                 space,
-                                 string "(",
-                                 p_enamed env n,
-                                 string ")"]
+      | DDatabase {name, expunge, initialize} => box [string "database",
+                                                      space,
+                                                      string name,
+                                                      space,
+                                                      string "(",
+                                                      p_enamed env expunge,
+                                                      string ",",
+                                                      space,
+                                                      p_enamed env initialize,
+                                                      string ")"]
       | DJavaScript s => box [string "JavaScript(",
                               string s,
                               string ")"]