module Handler.DeleteRefItem where

import Import

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