diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-01-16 14:16:09 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-01-16 14:16:09 -0500 |
commit | 37ed8d2e9f2a3ba1c444883c6947a988a43116e6 (patch) | |
tree | 3bc6e56adbdaf785069a3877d2061fd3932038bb /src/urweb.grm | |
parent | de9ddafb11df2950bf4941762e3e42eb04319a38 (diff) |
Error message when FOREIGN KEY listts have different lengths
Diffstat (limited to 'src/urweb.grm')
-rw-r--r-- | src/urweb.grm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/urweb.grm b/src/urweb.grm index 5803f445..37bddef7 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -589,6 +589,13 @@ cst : UNIQUE tnames (let 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 |