changeset 715:1db127b245ed

Use FOREIGN KEY in Tree demo
author Adam Chlipala <adamc@hcoop.net>
date Thu, 09 Apr 2009 15:51:50 -0400
parents 0f42461273cf
children a6941960f459
files demo/tree.ur
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/demo/tree.ur	Thu Apr 09 15:30:15 2009 -0400
+++ b/demo/tree.ur	Thu Apr 09 15:51:50 2009 -0400
@@ -1,6 +1,7 @@
 sequence s
 table t : { Id : int, Parent : option int, Nam : string }
-  PRIMARY KEY Id
+  PRIMARY KEY Id,
+  CONSTRAINT F FOREIGN KEY Parent REFERENCES t (Id) ON DELETE CASCADE
 
 open TreeFun.Make(struct
                       val tab = t