diff options
Diffstat (limited to 'backend/lib/ACMS/API')
| -rw-r--r-- | backend/lib/ACMS/API/REST/Collection.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/backend/lib/ACMS/API/REST/Collection.hs b/backend/lib/ACMS/API/REST/Collection.hs index 9f7cafa..7be3269 100644 --- a/backend/lib/ACMS/API/REST/Collection.hs +++ b/backend/lib/ACMS/API/REST/Collection.hs @@ -16,6 +16,7 @@ import Data.Aeson qualified as A import Data.Function ((&)) import Miso.String (MisoString) import Text.Printf (printf) +import Debug.Trace list :: (APIMonad m) => MisoString -> m [A.Object] list c = @@ -29,7 +30,7 @@ read c i = & fetch >>= A.throwDecode -update :: (APIMonad m) => MisoString -> MisoString -> A.Object -> m () +update :: (APIMonad m) => MisoString -> MisoString -> A.Object -> m A.Object update c i o = restRequest (printf "/collection/%s/%s" c i) & setRequestMethod "PUT" |