Mercurial > urweb

diff src/elab_env.sml @ 704:70cbdcf5989b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UNIQUE constraints
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Apr 2009 12:24:31 -0400
parents f0224c7f12bb
children e6706a1df013
line wrap: on
line diff
--- a/src/elab_env.sml	Sun Apr 05 16:17:32 2009 -0400
+++ b/src/elab_env.sml	Tue Apr 07 12:24:31 2009 -0400
@@ -1532,7 +1532,7 @@
       | DFfiStr (x, n, sgn) => pushStrNamedAs env x n sgn
       | DConstraint _ => env
       | DExport _ => env
-      | DTable (tn, x, n, c) =>
+      | DTable (tn, x, n, c, _) =>
         let
             val t = (CApp ((CModProj (tn, [], "sql_table"), loc), c), loc)
         in