return UUID on item creation

backend/lib/ACMS/API/REST/Collection.hs

@@ -39,16 +39,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 =