From b145e03e5e25cfd59f544312efe3ea93e265a8ce Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 13 Sep 2008 20:04:28 -0400
Subject: Crud gets column headings

---
 tests/crud1.ur | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tests/crud1.ur')

diff --git a/tests/crud1.ur b/tests/crud1.ur
index 2253d459..f9d67ed8 100644
--- a/tests/crud1.ur
+++ b/tests/crud1.ur
@@ -6,9 +6,9 @@ open Crud.Make(struct
         val title = "Crud1"
 
         val cols = {
-                A = {Show = txt _},
-                B = {Show = txt _},
-                C = {Show = txt _},
-                D = {Show = txt _}
+                A = {Nam = "A", Show = txt _},
+                B = {Nam = "B", Show = txt _},
+                C = {Nam = "C", Show = txt _},
+                D = {Nam = "D", Show = txt _}
         }
 end)
-- 
cgit v1.2.3