From 363b43b25df5ab03b7954a421a00303668eea7eb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Mon, 13 Apr 2009 08:44:32 -0400
Subject: Simplify type class requirement for tree demo

---
 demo/treeFun.ur | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'demo/treeFun.ur')

diff --git a/demo/treeFun.ur b/demo/treeFun.ur
index 25d11927..2d4ef739 100644
--- a/demo/treeFun.ur
+++ b/demo/treeFun.ur
@@ -6,8 +6,7 @@ functor Make(M : sig
                  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
-- 
cgit v1.2.3