Handler/DeleteRefItem.hs


1
2
3
4
5
6
7
8
9
10

module Handler.DeleteRefItem where

import Import

postDeleteRefItemR :: ReferenceId -> Handler TypedContent
postDeleteRefItemR referenceId = do
  runDB $ delete referenceId
  selectRep $ do
    provideJson ()
    provideRep (redirect $ ReferenceListingR :: Handler Html)