diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-02-20 12:29:35 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-02-20 18:36:23 +0100 |
| commit | caf72faccc04e647c27e1b5eef85c515949d8210 (patch) | |
| tree | ec32dda7b87c12712307d2d101368fed5888d4b9 /backend/lib/ACMS/API/Query.hs | |
| parent | 3c64b52017e7c16da0d017c033c77eee5d7a4340 (diff) | |
consolidate `backend, cli, common` -> `acms`
Diffstat (limited to 'backend/lib/ACMS/API/Query.hs')
| -rw-r--r-- | backend/lib/ACMS/API/Query.hs | 17 |
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 |