Reference & list

1 files changed, 27 insertions, 0 deletions

diff --git a/Handler/ReferenceListing.hs b/Handler/ReferenceListing.hs
new file mode 100644
index 0000000..0f777ee
--- /dev/null
+++ b/Handler/ReferenceListing.hs
@@ -0,0 +1,27 @@
+module Handler.ReferenceListing where
+
+import Import
+
+import Handler.Common
+
+getReferenceListingR, postReferenceListingR :: Handler TypedContent
+getReferenceListingR = postReferenceListingR
+postReferenceListingR = do
+  ((insertResult, fsInsertForm), fsInsertEncoding) <- runFormPost $ referenceForm Nothing
+
+  mapM_ (addMessage "formError" . toHtml) =<< case insertResult of 
+    FormSuccess newReference -> [] <$ runDB (insert newReference)
+    FormFailure errors -> return errors
+    _ -> return []
+
+  reference <- runDB $ selectList [] [Asc ReferenceKind]
+
+  selectRep $ do
+    provideJson (reference :: [Entity Reference])
+    provideRep . defaultLayout $ referenceListing ReferenceState
+      { refFormState = Just InsertForm{..}
+      , ..
+      }
+
+putReferenceListingR :: Handler Value
+putReferenceListingR = returnJson =<< runDB . insertEntity =<< (requireCheckJsonBody :: Handler Reference)