diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-10-12 16:29:05 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-10-12 17:10:53 +0200 |
| commit | f59cd4349c974c8ab7907b4852f5dc86ce4daeed (patch) | |
| tree | 7eaed9115b8ca5ae46792bbf4471bf007480d174 /backend/lib | |
| parent | 29d9251b15d56f66d06551e158e992ace1856110 (diff) | |
add doc tests
Diffstat (limited to 'backend/lib')
| -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" |