From 32f008b8693340ec4d9560159de6bed10add6cf2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kmein@posteo.de>
Date: Fri, 11 Oct 2024 17:36:37 +0200
Subject: return UUID on item creation

---
 backend/lib/ACMS/API/REST/Collection.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'backend/lib/ACMS/API/REST')

diff --git a/backend/lib/ACMS/API/REST/Collection.hs b/backend/lib/ACMS/API/REST/Collection.hs
index 375b20c..c22b6ba 100644
--- a/backend/lib/ACMS/API/REST/Collection.hs
+++ b/backend/lib/ACMS/API/REST/Collection.hs
@@ -41,16 +41,16 @@ update c i o =
     & httpLBS
     >>= A.throwDecode . getResponseBody
 
-create :: T.Text -> A.Object -> IO ()
+create :: T.Text -> A.Object -> IO U.UUID
 create c o = do
   uuid <- U.nextRandom
   let i = U.toText uuid <> ".json"
-  "http://localhost:8081"
+  response <- "http://localhost:8081"
     & setRequestMethod "POST"
     & setRequestBodyLBS
       (LB.fromString (printf "INSERT %s INTO %s" (LB.toString (A.encode (AM.insert "$fileName" (A.String i) o))) c))
     & httpLBS
-    >>= A.throwDecode . getResponseBody
+  uuid <$ A.throwDecode @() (getResponseBody response)
 
 delete :: T.Text -> T.Text -> IO [A.Object]
 delete c i =
-- 
cgit v1.2.3