{-# 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