Mercurial > urweb
diff src/urweb.grm @ 1401:af501150678a
Error message when FOREIGN KEY listts have different lengths
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sun, 16 Jan 2011 14:16:09 -0500 |
| parents | 02fc16faecf3 |
| children | 5f4fee8a4dcd |
line wrap: on
line diff
--- a/src/urweb.grm Sun Jan 16 12:06:38 2011 -0500 +++ b/src/urweb.grm Sun Jan 16 14:16:09 2011 -0500 @@ -589,6 +589,13 @@ end) (EVar (["Basis"], "mat_nil", Infer), loc) (#1 tnames :: #2 tnames, #1 tnames' :: #2 tnames') + handle ListPair.UnequalLengths => + (ErrorMsg.errorAt loc ("Unequal foreign key list lengths (" + ^ Int.toString (1 + length (#2 tnames)) + ^ " vs. " + ^ Int.toString (1 + length (#2 tnames')) + ^ ")"); + (EVar (["Basis"], "mat_nil", Infer), loc)) fun findMode mode = let