diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-14 18:33:42 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-14 18:33:42 +0100 |
| commit | 7bc954b779a9bc4e1c5e60f2648101c62ed22e72 (patch) | |
| tree | b30851324772c14550c0444b7e79e36256f67900 /Handler/DeleteRefItem.hs | |
| parent | 53fcf55c02f9335518c28d26429913258fc28f87 (diff) | |
| download | bar-7bc954b779a9bc4e1c5e60f2648101c62ed22e72.tar bar-7bc954b779a9bc4e1c5e60f2648101c62ed22e72.tar.gz bar-7bc954b779a9bc4e1c5e60f2648101c62ed22e72.tar.bz2 bar-7bc954b779a9bc4e1c5e60f2648101c62ed22e72.tar.xz bar-7bc954b779a9bc4e1c5e60f2648101c62ed22e72.zip | |
Reference & list
Diffstat (limited to 'Handler/DeleteRefItem.hs')
| -rw-r--r-- | Handler/DeleteRefItem.hs | 10 |
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 @@ | |||
| 1 | module Handler.DeleteRefItem where | ||
| 2 | |||
| 3 | import Import | ||
| 4 | |||
| 5 | postDeleteRefItemR :: ReferenceId -> Handler TypedContent | ||
| 6 | postDeleteRefItemR referenceId = do | ||
| 7 | runDB $ delete referenceId | ||
| 8 | selectRep $ do | ||
| 9 | provideJson () | ||
| 10 | provideRep (redirect $ ReferenceListingR :: Handler Html) | ||