61 lines
1.8 KiB
Haskell
61 lines
1.8 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module ACMS.API.REST.Collection where
|
|
|
|
import Data.Aeson qualified as A
|
|
import Data.Aeson.KeyMap qualified as AM
|
|
import Data.ByteString.Lazy.UTF8 qualified as LB
|
|
import Data.Function ((&))
|
|
import Data.Text qualified as T
|
|
import Network.HTTP.Simple
|
|
import Text.Printf (printf)
|
|
import Data.UUID qualified as U
|
|
import Data.UUID.V4 qualified as U
|
|
|
|
type CollectionName = T.Text
|
|
|
|
list :: T.Text -> IO [A.Object]
|
|
list c =
|
|
"http://localhost:8081"
|
|
& setRequestMethod "POST"
|
|
& setRequestBodyLBS (LB.fromString (printf "SELECT %s FROM %s" c c))
|
|
& httpLBS
|
|
>>= A.throwDecode . getResponseBody
|
|
|
|
read :: T.Text -> T.Text -> IO [A.Object]
|
|
read c i =
|
|
"http://localhost:8081"
|
|
& setRequestMethod "POST"
|
|
& setRequestBodyLBS
|
|
(LB.fromString (printf "SELECT %s FROM %s WHERE %s.$fileName == \"%s\"" c c c i))
|
|
& httpLBS
|
|
>>= A.throwDecode . getResponseBody
|
|
|
|
update :: T.Text -> T.Text -> A.Object -> IO ()
|
|
update c i o =
|
|
"http://localhost:8081"
|
|
& setRequestMethod "POST"
|
|
& setRequestBodyLBS
|
|
(LB.fromString (printf "UPDATE %s SET %s WHERE %s.$fileName == \"%s\"" c (LB.toString (A.encode o)) c i))
|
|
& httpLBS
|
|
>>= A.throwDecode . getResponseBody
|
|
|
|
create :: T.Text -> A.Object -> IO U.UUID
|
|
create c o = do
|
|
uuid <- U.nextRandom
|
|
let i = U.toText uuid <> ".json"
|
|
response <- "http://localhost:8081"
|
|
& setRequestMethod "POST"
|
|
& setRequestBodyLBS
|
|
(LB.fromString (printf "INSERT %s INTO %s" (LB.toString (A.encode (AM.insert "$fileName" (A.String i) o))) c))
|
|
& httpLBS
|
|
uuid <$ A.throwDecode @() (getResponseBody response)
|
|
|
|
delete :: T.Text -> T.Text -> IO [A.Object]
|
|
delete c i =
|
|
"http://localhost:8081"
|
|
& setRequestMethod "POST"
|
|
& setRequestBodyLBS
|
|
(LB.fromString (printf "DELETE FROM %s WHERE %s.$fileName == \"%s\"" c c i))
|
|
& httpLBS
|
|
>>= A.throwDecode . getResponseBody
|