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.hs | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

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

diff --git a/backend/lib/ACMS/API/REST.hs b/backend/lib/ACMS/API/REST.hs
index 74d402c..64b47b7 100644
--- a/backend/lib/ACMS/API/REST.hs
+++ b/backend/lib/ACMS/API/REST.hs
@@ -5,7 +5,6 @@ module ACMS.API.REST where
 #ifndef ghcjs_HOST_OS
 import Network.HTTP.Simple
 #else
-import Data.ByteString.Char8 qualified as B
 import Data.ByteString.Lazy.UTF8 qualified as LB
 import Data.Maybe
 import Data.String
@@ -14,26 +13,35 @@ import Miso.String qualified as J
 #endif
 import Control.Monad.Catch (MonadThrow)
 import Data.Aeson qualified as A
+import Data.ByteString.Char8 qualified as B
 import Data.ByteString.Lazy.Char8 qualified as LB
 import Data.Function ((&))
 import Miso (JSM)
 import Miso.String (MisoString)
 
+restRequest :: String -> Request
+restRequest endpoint =
+  defaultRequest
+    & setRequestSecure False
+    & setRequestHost "localhost"
+    & setRequestPort 8081
+    & setRequestPath ("/api/rest" <> B.pack endpoint)
+
 schemaVersion :: (APIMonad m, A.FromJSON a) => m a
 schemaVersion =
-  "http://localhost:8081/api/rest/schemaVersion"
+  restRequest "/schemaVersion"
     & fetch
     >>= A.throwDecode
 
 listCollections :: (APIMonad m) => m [MisoString]
 listCollections =
-  "http://localhost:8081/api/rest/collection"
+  restRequest "/collection"
     & fetch
     >>= A.throwDecode
 
 createCollection :: (APIMonad m) => MisoString -> m ()
 createCollection collection =
-  "http://localhost:8081/api/rest/collections"
+  restRequest "/collections"
     & setRequestMethod "POST"
     & setRequestBodyLBS (A.encode (A.toJSON collection))
     & fetch
-- 
cgit v1.2.3