From 56e2db12f7b96ad08985ef21971849ac5e6c69f5 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Mon, 13 Dec 2004 13:55:35 +0000
Subject: [PATCH] Added footer to the list revs page

---
 Main.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Main.hs b/Main.hs
index 418c168..3fcb667 100644
--- a/Main.hs
+++ b/Main.hs
@@ -78,10 +78,12 @@ e _ = True
 
 listRevs db key = do 
 	list <- io $ getList db key 
-	standardQuery key $ table $ do
-		tr $ mapM (\header -> th (text header))
-			["Id", "Date", "Author", "Comment"]
-		mapM (revRow db key) list
+	standardQuery key $ do
+		table $ do
+			tr $ mapM (\header -> th (text header))
+				["Id", "Date", "Author", "Comment"]
+			mapM (revRow db key) list
+		footer db key
 
 listKeywords db = do 
 	list <- io $ listKeys db
-- 
2.39.2