aboutsummaryrefslogtreecommitdiffstats
path: root/backend/lib/ACMS/API/Query.hs
diff options
context:
space:
mode:
Diffstat (limited to 'backend/lib/ACMS/API/Query.hs')
-rw-r--r--backend/lib/ACMS/API/Query.hs17
1 files changed, 0 insertions, 17 deletions
diff --git a/backend/lib/ACMS/API/Query.hs b/backend/lib/ACMS/API/Query.hs
deleted file mode 100644
index ab2cabc..0000000
--- a/backend/lib/ACMS/API/Query.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-{-# 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