1 files changed, 10 insertions, 0 deletions

diff --git a/Handler/DeleteRefItem.hs b/Handler/DeleteRefItem.hs
new file mode 100644
index 0000000..c4ff519
--- /dev/null
+++ b/Handler/DeleteRefItem.hs
@@ -0,0 +1,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)