aboutsummaryrefslogtreecommitdiffstats
path: root/backend/lib/ACMS/API/Query.hs
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