Added footer to the list revs page

[yawbih.git] / Main.hs

diff --git a/Main.hs b/Main.hs
index 418c16820b88fafff475bcc544eee02f227bcabd..3fcb66788db970fcf0bc036539e124470858634e 100644 (file)
--- 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