Mercurial > urweb
diff src/expl_env.sml @ 704:70cbdcf5989b
UNIQUE constraints
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 07 Apr 2009 12:24:31 -0400 |
parents | 354800878b4d |
children | e6706a1df013 |
line wrap: on
line diff
--- a/src/expl_env.sml Sun Apr 05 16:17:32 2009 -0400 +++ b/src/expl_env.sml Tue Apr 07 12:24:31 2009 -0400 @@ -298,7 +298,7 @@ | DStr (x, n, sgn, _) => pushStrNamed env x n sgn | DFfiStr (x, n, sgn) => pushStrNamed env x n sgn | DExport _ => env - | DTable (tn, x, n, c) => + | DTable (tn, x, n, c, _) => let val t = (CApp ((CModProj (tn, [], "sql_table"), loc), c), loc) in