Handler/DeleteItem.hs


1
2
3
4
5
6
7
8
9
10

module Handler.DeleteItem where

import Import

postDeleteItemR :: ItemId -> Handler TypedContent
postDeleteItemR itemId = do
  runDB $ delete itemId
  selectRep $ do
    provideJson ()
    provideRep (redirect $ InventoryListingR :: Handler Html)