diff demo/treeFun.ur @ 723:311ca1ae715d

Simplify type class requirement for tree demo
author Adam Chlipala <adamc@hcoop.net>
date Mon, 13 Apr 2009 08:44:32 -0400
parents 1fb318c17546
children
line wrap: on
line diff
--- a/demo/treeFun.ur	Sun Apr 12 14:21:19 2009 -0400
+++ b/demo/treeFun.ur	Mon Apr 13 08:44:32 2009 -0400
@@ -6,8 +6,7 @@
                  constraint [id] ~ [parent]
                  constraint [id, parent] ~ cols
 
-                 val key_inj : sql_injectable key
-                 val option_key_inj : sql_injectable (option key)
+                 val key_inj : sql_injectable_prim key
 
                  table tab : ([id = key, parent = option key] ++ cols)
              end) = struct