X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Main.hs;h=3fcb66788db970fcf0bc036539e124470858634e;hp=418c16820b88fafff475bcc544eee02f227bcabd;hb=56e2db12f7b96ad08985ef21971849ac5e6c69f5;hpb=64b58e5b75b4c8e95574fa9080166f5cf1079005

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