From c36c4cf37737ba972482a34c8df2b61a541e7f0a Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 19 Feb 2025 17:05:11 +0100 Subject: add `acms query` --- backend/lib/ACMS/API/Query.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 backend/lib/ACMS/API/Query.hs (limited to 'backend/lib/ACMS/API/Query.hs') 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 -- cgit v1.2.3