From e4e1bf5221bd0cf68df2ba444425e5a0b9d50af1 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 26 Feb 2009 16:16:54 -0500
Subject: Kind-polymorphic [fst] and friends

---
 demo/crud.urs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'demo/crud.urs')

diff --git a/demo/crud.urs b/demo/crud.urs
index b240b7c1..57ab3808 100644
--- a/demo/crud.urs
+++ b/demo/crud.urs
@@ -18,7 +18,7 @@ functor Make(M : sig
                  constraint [Id] ~ cols
                  val fl : folder cols
 
-                 val tab : sql_table ([Id = int] ++ map fstTT cols)
+                 val tab : sql_table ([Id = int] ++ map fst cols)
 
                  val title : string
 
-- 
cgit v1.2.3