autogenerate collection item IDs

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

@@ -8,6 +8,8 @@ import Data.Function ((&))
 import Data.Text qualified as T
 import Network.HTTP.Simple
 import Text.Printf (printf)
+import Data.UUID qualified as U
+import Data.UUID.V4 qualified as U
 
 type CollectionName = T.Text
 
@@ -37,8 +39,10 @@ update c i o =
     & httpLBS
     >>= A.throwDecode . getResponseBody
 
-create :: T.Text -> T.Text -> A.Object -> IO ()
-create c i o =
+create :: T.Text -> A.Object -> IO ()
+create c o = do
+  uuid <- U.nextRandom
+  let i = U.toText uuid <> ".json"
   "http://localhost:8081"
     & setRequestMethod "POST"
     & setRequestBodyLBS