diff options
Diffstat (limited to 'backend/lib/ACMS/API')
| -rw-r--r-- | backend/lib/ACMS/API/REST/Collection.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 = |