Reference & list

1 files changed, 25 insertions, 0 deletions

diff --git a/Handler/ReferenceItem.hs b/Handler/ReferenceItem.hs
new file mode 100644
index 0000000..738c9f3
--- /dev/null
+++ b/Handler/ReferenceItem.hs
@@ -0,0 +1,25 @@
+module Handler.ReferenceItem where
+
+import Import
+
+getReferenceItemR :: ReferenceId -> Handler TypedContent
+getReferenceItemR referenceId = do
+  entity <- runDB $ Entity referenceId <$> get404 referenceId
+  selectRep $ do
+    provideJson entity
+    provideRep (redirect $ ReferenceListingR :#: referenceId :: Handler Html)
+
+
+putReferenceItemR :: ReferenceId -> Handler Value
+putReferenceItemR referenceId = do
+  Reference{..} <- requireCheckJsonBody
+  returnJson . Entity referenceId =<< runDB
+    (updateGet referenceId [ ReferenceKind =. referenceKind
+                           , ReferenceNormKind =. referenceNormKind
+                           ])
+
+patchReferenceItemR :: ReferenceId -> Handler Value
+patchReferenceItemR = putReferenceItemR -- Just one field
+
+deleteReferenceItemR :: ReferenceId -> Handler ()
+deleteReferenceItemR = runDB . delete