add `acms query`

1 files changed, 17 insertions, 0 deletions

diff --git a/backend/lib/ACMS/API/Query.hs b/backend/lib/ACMS/API/Query.hs
new file mode 100644
index 0000000..ab2cabc
--- /dev/null
+++ b/backend/lib/ACMS/API/Query.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module ACMS.API.Query where
+
+import ACMS.API.Fetch
+import Data.Aeson qualified as A
+import Data.ByteString.Lazy.UTF8 qualified as LB
+import Data.Function ((&))
+import Data.String (IsString (fromString))
+
+query :: (APIMonad m) => String -> m A.Value
+query q =
+  fromString ("http://localhost:8081/api/query")
+    & setRequestMethod "POST"
+    & setRequestBodyLBS (LB.fromString q)
+    & fetch
+    >>= A.throwDecode