From 962db630a81a4040902c23c773df3069a48db0a3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kmein@posteo.de>
Date: Sun, 13 Oct 2024 09:55:20 +0200
Subject: move Collection types to common
---
backend/lib/ACMS/API/REST/Collection.hs | 31 ++++++++++++++++---------------
1 file changed, 16 insertions(+), 15 deletions(-)
(limited to 'backend/lib/ACMS/API')
diff --git a/backend/lib/ACMS/API/REST/Collection.hs b/backend/lib/ACMS/API/REST/Collection.hs
index 7be3269..09f7e32 100644
--- a/backend/lib/ACMS/API/REST/Collection.hs
+++ b/backend/lib/ACMS/API/REST/Collection.hs
@@ -11,6 +11,7 @@ import Data.Maybe
import JavaScript.Web.XMLHttpRequest
import Miso.String qualified as J
#endif
+import Collection
import ACMS.API.REST (APIMonad, fetch, restRequest)
import Data.Aeson qualified as A
import Data.Function ((&))
@@ -18,43 +19,43 @@ import Miso.String (MisoString)
import Text.Printf (printf)
import Debug.Trace
-list :: (APIMonad m) => MisoString -> m [A.Object]
+list :: (APIMonad m) => Collection -> m [A.Object]
list c =
- restRequest (printf "/collection/%s" c)
+ restRequest (printf "/collection/%s" c.name)
& fetch
>>= A.throwDecode
-read :: (APIMonad m) => MisoString -> MisoString -> m [A.Object]
-read c i =
- restRequest (printf "/collection/%s/%s" c i)
+read :: (APIMonad m) => CollectionItem -> m [A.Object]
+read ci =
+ restRequest (printf "/collection/%s/%s" ci.collection.name ci.itemFileName)
& fetch
>>= A.throwDecode
-update :: (APIMonad m) => MisoString -> MisoString -> A.Object -> m A.Object
-update c i o =
- restRequest (printf "/collection/%s/%s" c i)
+update :: (APIMonad m) => CollectionItem -> A.Object -> m A.Object
+update ci o =
+ restRequest (printf "/collection/%s/%s" ci.collection.name ci.itemFileName)
& setRequestMethod "PUT"
& setRequestBodyLBS (A.encode o)
& fetch
>>= A.throwDecode
-create :: (APIMonad m) => MisoString -> A.Object -> m A.Object
+create :: (APIMonad m) => Collection -> A.Object -> m A.Object
create c o = do
- restRequest (printf "/collection/%s" c)
+ restRequest (printf "/collection/%s" c.name)
& setRequestMethod "POST"
& setRequestBodyLBS (A.encode o)
& fetch
>>= A.throwDecode
-delete :: (APIMonad m) => MisoString -> MisoString -> m [A.Object]
-delete c i =
- restRequest (printf "/collection/%s/%s" c i)
+delete :: (APIMonad m) => CollectionItem -> m [A.Object]
+delete ci =
+ restRequest (printf "/collection/%s/%s" ci.collection.name ci.itemFileName)
& setRequestMethod "DELETE"
& fetch
>>= A.throwDecode
-schema :: (APIMonad m) => (A.FromJSON a) => MisoString -> m a
+schema :: (APIMonad m) => (A.FromJSON a) => Collection -> m a
schema c =
- restRequest (printf "/collection/%s/schema" c)
+ restRequest (printf "/collection/%s/schema" c.name)
& fetch
>>= A.throwDecode
--
cgit v1.2.3