diff options
| author |  Kierán Meinhardt <kmein@posteo.de> | 2024-10-12 15:11:50 +0200 |
|---|---|---|
| committer | Kierán Meinhardt <kmein@posteo.de> | 2024-10-12 15:16:03 +0200 |
| commit | 29d9251b15d56f66d06551e158e992ace1856110 (patch) | |
| tree | b7db48e67e03cdd099054085315e32e7301d9d41 /backend/lib/ACMS/API/REST | |
| parent | 47160b1fa5a9b351a999f5ca033dc165435af70e (diff) | |
cli: factor out rest api location
Diffstat (limited to 'backend/lib/ACMS/API/REST')
| -rw-r--r-- | backend/lib/ACMS/API/REST/Collection.hs | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/backend/lib/ACMS/API/REST/Collection.hs b/backend/lib/ACMS/API/REST/Collection.hs index e0df21b..9f7cafa 100644 --- a/backend/lib/ACMS/API/REST/Collection.hs +++ b/backend/lib/ACMS/API/REST/Collection.hs @@ -11,28 +11,27 @@ import Data.Maybe import JavaScript.Web.XMLHttpRequest import Miso.String qualified as J #endif -import ACMS.API.REST (APIMonad, fetch) +import ACMS.API.REST (APIMonad, fetch, restRequest) import Data.Aeson qualified as A import Data.Function ((&)) -import Data.String (fromString) import Miso.String (MisoString) import Text.Printf (printf) list :: (APIMonad m) => MisoString -> m [A.Object] list c = - fromString (printf "http://localhost:8081/api/rest/collection/%s" c) + restRequest (printf "/collection/%s" c) & fetch >>= A.throwDecode read :: (APIMonad m) => MisoString -> MisoString -> m [A.Object] read c i = - fromString (printf "http://localhost:8081/api/rest/collection/%s/%s" c i) + restRequest (printf "/collection/%s/%s" c i) & fetch >>= A.throwDecode update :: (APIMonad m) => MisoString -> MisoString -> A.Object -> m () update c i o = - fromString (printf "http://localhost:8081/api/rest/collection/%s/%s" c i) + restRequest (printf "/collection/%s/%s" c i) & setRequestMethod "PUT" & setRequestBodyLBS (A.encode o) & fetch @@ -40,7 +39,7 @@ update c i o = create :: (APIMonad m) => MisoString -> A.Object -> m A.Object create c o = do - fromString (printf "http://localhost:8081/api/rest/collection/%s" c) + restRequest (printf "/collection/%s" c) & setRequestMethod "POST" & setRequestBodyLBS (A.encode o) & fetch @@ -48,13 +47,13 @@ create c o = do delete :: (APIMonad m) => MisoString -> MisoString -> m [A.Object] delete c i = - fromString (printf "http://localhost:8081/api/rest/collection/%s/%s" c i) + restRequest (printf "/collection/%s/%s" c i) & setRequestMethod "DELETE" & fetch >>= A.throwDecode schema :: (APIMonad m) => (A.FromJSON a) => MisoString -> m a schema c = - fromString (printf "http://localhost:8081/api/rest/collection/%s/schema" c) + restRequest (printf "/collection/%s/schema" c) & fetch >>= A.throwDecode |