blob: ab2cabc248a4546c11cad55a2476ac20e529073c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
|
