Mercurial > urweb

diff src/mono_shake.sml @ 338:e976b187d73a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SQL sequences
author Adam Chlipala <adamc@hcoop.net>
date Sun, 14 Sep 2008 11:02:18 -0400
parents 09c66a30ef32
children 162d5308e34f
line wrap: on
line diff
--- a/src/mono_shake.sml	Sat Sep 13 20:15:30 2008 -0400
+++ b/src/mono_shake.sml	Sun Sep 14 11:02:18 2008 -0400
@@ -55,6 +55,7 @@
                                      (cdef, foldl (fn ((_, n, t, e, _), edef) => IM.insert (edef, n, (t, e))) edef vis)
                                    | ((DExport _, _), acc) => acc
                                    | ((DTable _, _), acc) => acc
+                                   | ((DSequence _, _), acc) => acc
                                    | ((DDatabase _, _), acc) => acc)
                                  (IM.empty, IM.empty) file
 
@@ -110,6 +111,7 @@
                       | (DValRec vis, _) => List.exists (fn (_, n, _, _, _) => IS.member (#exp s, n)) vis
                       | (DExport _, _) => true
                       | (DTable _, _) => true
+                      | (DSequence _, _) => true
                       | (DDatabase _, _) => true) file
     end