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