Mercurial > urweb

diff src/mono_print.sml @ 1104:72670131dace

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Basis.serialize; separate file for mhash; run transactional finishers in reverse order; set needs_sig properly
author Adam Chlipala <adamc@hcoop.net>
date Thu, 31 Dec 2009 11:41:57 -0500
parents 0657e5adc938
children 52571ca9b777
line wrap: on
line diff
--- a/src/mono_print.sml	Wed Dec 30 09:52:18 2009 -0500
+++ b/src/mono_print.sml	Thu Dec 31 11:41:57 2009 -0500
@@ -423,23 +423,23 @@
                  p_list_sep (box [newline, string "and", space]) (p_vali env) vis]
         end
 
-      | DExport (ek, s, n, ts, t) => box [string "export",
-                                          space,
-                                          Export.p_export_kind ek,
-                                          space,
-                                          p_enamed env n,
-                                          space,
-                                          string "as",
-                                          space,
-                                          string s,
-                                          p_list_sep (string "") (fn t => box [space,
-                                                                               string "(",
-                                                                               p_typ env t,
-                                                                               string ")"]) ts,
-                                          space,
-                                          string "->",
-                                          space,
-                                          p_typ env t]
+      | DExport (ek, s, n, ts, t, _) => box [string "export",
+                                             space,
+                                             Export.p_export_kind ek,
+                                             space,
+                                             p_enamed env n,
+                                             space,
+                                             string "as",
+                                             space,
+                                             string s,
+                                             p_list_sep (string "") (fn t => box [space,
+                                                                                  string "(",
+                                                                                  p_typ env t,
+                                                                                  string ")"]) ts,
+                                             space,
+                                             string "->",
+                                             space,
+                                             p_typ env t]
 
       | DTable (s, xts, pe, ce) => box [string "(* SQL table ",
                                         string s,