From: Michael Andreen <harv@ruin.nu>
Date: Mon, 13 Dec 2004 13:55:35 +0000 (+0000)
Subject: Added footer to the list revs page
X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=commitdiff_plain;h=56e2db12f7b96ad08985ef21971849ac5e6c69f5

Added footer to the list revs page
---

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