aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-11-24 05:45:11 +03:00
Code Issues Projects Releases Wiki Activity

[#196] Add item list of deleted category at /admin

Browse Source
This commit is contained in:
vrom911 2017-08-27 00:28:33 +03:00
parent 5cb54f4a55
commit b2bf41b2e4
No known key found for this signature in database
GPG Key ID: A5849E99E6D02B61
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Guide/Views.hs
View File

@ -318,9 +318,6 @@ renderStats globalState acts = do
Nothing -> "<unknown IP>"
Just ip -> toHtml (show ip)
-- TODO: when showing Edit'DeleteCategory, show the amount of items in that
-- category and titles of items themselves
-- | Group edits by IP and render them.
renderEdits
:: (MonadIO m)
@ -404,6 +401,14 @@ renderEdit globalState edit = do
let (category, item) = findItem itemId
quote $ a_ [href_ (itemLink category item)] $
toHtml (item ^. name)
let printCategoryWithItems catId = do
let category = findCategory catId
quote $ toHtml (category ^. title)
let catItems = category ^. items
toHtml $ " with " ++ show (length catItems) ++ " items:"
ul_ $
for_ catItems $ \item ->
li_ $ toHtml (item ^. name)
case edit of
-- Add
@ -488,7 +493,7 @@ renderEdit globalState edit = do
-- Delete
Edit'DeleteCategory catId _pos -> p_ $ do
"deleted category " >> printCategory catId
"deleted category " >> printCategoryWithItems catId
Edit'DeleteItem itemId _pos -> p_ $ do
let (category, item) = findItem itemId
"deleted item " >> quote (toHtml (item^.name))