From 29d9251b15d56f66d06551e158e992ace1856110 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kmein@posteo.de>
Date: Sat, 12 Oct 2024 15:11:50 +0200
Subject: cli: factor out rest api location

---
 backend/lib/ACMS/API/REST/Collection.hs | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'backend/lib/ACMS/API/REST/Collection.hs')

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
-- 
cgit v1.2.3