{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}

{- |
Copyright: (c) 2020 Jens Petersen
SPDX-License-Identifier: MIT
Maintainer: Jens Petersen <juhpetersen@gmail.com>

Fedora PDC web api client library
-}

module Fedora.PDC
  ( fedoraPDC
  , pdcArches
  , pdcChangesets
  , pdcComponentBranches
  , pdcComponentBranchSLAs
  , pdcComponentRelationshipTypes
  , pdcComponentSLATypes
  , pdcComposes
  , pdcComposeImages
  , pdcComposeImageRttTests
  , pdcComposeRpms
  , pdcComposeTreeRttTests
  , pdcContentDeliveryContentFormats
  , pdcGlobalComponents
  , pdcImages
  , pdcModules
  , pdcProductVersions
  , pdcProducts
  , pdcReleases
  , pdcWhereToFileBugs
  , pdcRpms
  , queryPDC
  , lookupKey
  , lookupKey'
  , makeKey
  , makeItem
  , maybeKey
  , Query
  , QueryItem
  , getResultsList
  )
where

import Data.Aeson.Types
import Network.HTTP.Query

fedoraPDC :: String
fedoraPDC :: String
fedoraPDC = "pdc.fedoraproject.org"

-- | Arch List
--
-- https://pdc.fedoraproject.org/rest_api/v1/arches/
pdcArches :: String -> IO [Object]
pdcArches :: String -> IO [Object]
pdcArches server :: String
server =
  Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results" (Object -> [Object]) -> IO Object -> IO [Object]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> String -> Query -> IO Object
queryPDC String
server "arches" []

-- https://pdc.fedoraproject.org/rest_api/v1/auth/ *

-- https://pdc.fedoraproject.org/rest_api/v1/base-products/ no-op?

-- https://pdc.fedoraproject.org/rest_api/v1/bugzilla-components/ no-op?

-- | Changeset List
--
-- https://pdc.fedoraproject.org/rest_api/v1/changesets/
pdcChangesets :: String -> Query -> IO Object
pdcChangesets :: String -> Query -> IO Object
pdcChangesets server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "changesets"

-- | Sla To Component Branch List
--
-- https://pdc.fedoraproject.org/rest_api/v1/component-branch-slas/
pdcComponentBranchSLAs :: String -> Query -> IO Object
pdcComponentBranchSLAs :: String -> Query -> IO Object
pdcComponentBranchSLAs server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "component-branch-slas"

-- | Component Branch List
--
-- https://pdc.fedoraproject.org/rest_api/v1/component-branches/
pdcComponentBranches :: String -> Query -> IO Object
pdcComponentBranches :: String -> Query -> IO Object
pdcComponentBranches server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "component-branches"

-- | Release Component Relationship Type List
--
-- https://pdc.fedoraproject.org/rest_api/v1/component-relationship-types/
pdcComponentRelationshipTypes :: String -> IO [Object]
pdcComponentRelationshipTypes :: String -> IO [Object]
pdcComponentRelationshipTypes server :: String
server =
  Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results" (Object -> [Object]) -> IO Object -> IO [Object]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> String -> Query -> IO Object
queryPDC String
server "component-relationship-types" []

-- | Sla List
--
-- https://pdc.fedoraproject.org/rest_api/v1/component-sla-types/
pdcComponentSLATypes :: String -> Query -> IO [Object]
pdcComponentSLATypes :: String -> Query -> IO [Object]
pdcComponentSLATypes server :: String
server params :: Query
params =
  Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results" (Object -> [Object]) -> IO Object -> IO [Object]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> String -> Query -> IO Object
queryPDC String
server "component-sla-types" Query
params

-- | Compose Image Rtt Test List
--
-- https://pdc.fedoraproject.org/rest_api/v1/compose-image-rtt-tests/ (all untested?)
pdcComposeImageRttTests :: String -> Query -> IO Object
pdcComposeImageRttTests :: String -> Query -> IO Object
pdcComposeImageRttTests server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "compose-image-rtt-tests"

-- | Compose Image Instance
--
-- https://pdc.fedoraproject.org/rest_api/v1/compose-images/ {compose_id}/
pdcComposeImages :: String -> String -> IO Object
pdcComposeImages :: String -> String -> IO Object
pdcComposeImages server :: String
server compose :: String
compose =
  String -> String -> Query -> IO Object
queryPDC String
server ("compose-images" String -> String -> String
+/+ String
compose String -> String -> String
forall a. [a] -> [a] -> [a]
++ "/") []

-- | Compose Rpm List (seems heavy)
--
-- https://pdc.fedoraproject.org/rest_api/v1/compose-rpms/ {compose_id}/
pdcComposeRpms :: String -> String -> IO Object
pdcComposeRpms :: String -> String -> IO Object
pdcComposeRpms server :: String
server compose :: String
compose =
  String -> String -> Query -> IO Object
queryPDC String
server ("compose-rpms" String -> String -> String
+/+ String
compose String -> String -> String
forall a. [a] -> [a] -> [a]
++ "/") []

-- | Compose Tree Rtt Test List
--
-- https://pdc.fedoraproject.org/rest_api/v1/compose-tree-rtt-tests/
pdcComposeTreeRttTests :: String -> Query -> IO Object
pdcComposeTreeRttTests :: String -> Query -> IO Object
pdcComposeTreeRttTests server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "compose-tree-rtt-tests"

-- | Compose List
--
-- https://pdc.fedoraproject.org/rest_api/v1/composes/
pdcComposes :: String -> Maybe String -> Query -> IO Object
pdcComposes :: String -> Maybe String -> Query -> IO Object
pdcComposes server :: String
server mcompose :: Maybe String
mcompose params :: Query
params = do
  let path :: String
path = "composes" String -> String -> String
+/+ String -> (String -> String) -> Maybe String -> String
forall b a. b -> (a -> b) -> Maybe a -> b
maybe "" (String -> String -> String
forall a. [a] -> [a] -> [a]
++ "/") Maybe String
mcompose
  String -> String -> Query -> IO Object
queryPDC String
server String
path Query
params

-- https://pdc.fedoraproject.org/rest_api/v1/composes/%7Bcompose_id%7D/rpm-mapping/%7Bpackage%7D/

-- | Content Format List
--
-- https://pdc.fedoraproject.org/rest_api/v1/content-delivery-content-formats/
pdcContentDeliveryContentFormats :: String -> Query -> IO [Object]
pdcContentDeliveryContentFormats :: String -> Query -> IO [Object]
pdcContentDeliveryContentFormats server :: String
server params :: Query
params =
  Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results" (Object -> [Object]) -> IO Object -> IO [Object]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> String -> Query -> IO Object
queryPDC String
server "content-delivery-content-formats" Query
params

-- | Global Component List
--
-- https://pdc.fedoraproject.org/rest_api/v1/global-components/
pdcGlobalComponents :: String -> Query -> IO Object
pdcGlobalComponents :: String -> Query -> IO Object
pdcGlobalComponents server :: String
server =
   String -> String -> Query -> IO Object
queryPDC String
server "global-components"

-- | Image List
--
-- https://pdc.fedoraproject.org/rest_api/v1/images/
pdcImages :: String -> Query -> IO Object
pdcImages :: String -> Query -> IO Object
pdcImages server :: String
server =
   String -> String -> Query -> IO Object
queryPDC String
server "images"

-- | Module List
--
-- https://pdc.fedoraproject.org/rest_api/v1/modules/
pdcModules :: String -> Query -> IO Object
pdcModules :: String -> Query -> IO Object
pdcModules server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "modules"

-- | Product Version List
--
-- https://pdc.fedoraproject.org/rest_api/v1/product-versions/
pdcProductVersions :: String -> Query -> IO [Object]
pdcProductVersions :: String -> Query -> IO [Object]
pdcProductVersions server :: String
server params :: Query
params =
  Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results" (Object -> [Object]) -> IO Object -> IO [Object]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> String -> Query -> IO Object
queryPDC String
server "product-versions" Query
params

-- | Product List
--
-- https://pdc.fedoraproject.org/rest_api/v1/products/
pdcProducts :: String -> Query -> IO [Object]
pdcProducts :: String -> Query -> IO [Object]
pdcProducts server :: String
server params :: Query
params =
  Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results" (Object -> [Object]) -> IO Object -> IO [Object]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> String -> Query -> IO Object
queryPDC String
server "products" Query
params

-- | Release List
--
-- https://pdc.fedoraproject.org/rest_api/v1/releases/
pdcReleases :: String -> Query -> IO Object
pdcReleases :: String -> Query -> IO Object
pdcReleases server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "releases"

-- | Filter Bugzilla Products And Components List
--
-- https://pdc.fedoraproject.org/rest_api/v1/rpc/where-to-file-bugs/
pdcWhereToFileBugs :: String -> Query -> IO Object
pdcWhereToFileBugs :: String -> Query -> IO Object
pdcWhereToFileBugs server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "rpc/where-to-file-bugs"

-- | Rpm List
--
-- https://pdc.fedoraproject.org/rest_api/v1/rpms/
pdcRpms :: String -> Query -> IO Object
pdcRpms :: String -> Query -> IO Object
pdcRpms server :: String
server =
  String -> String -> Query -> IO Object
queryPDC String
server "rpms"

-- | low-level query
queryPDC :: String -> String -> Query -> IO Object
queryPDC :: String -> String -> Query -> IO Object
queryPDC server :: String
server path :: String
path params :: Query
params =
  let url :: String
url = "https://" String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
server String -> String -> String
+/+ "rest_api/v1" String -> String -> String
+/+ String
path
  in String -> Query -> IO Object
forall (m :: * -> *) a.
(MonadIO m, FromJSON a) =>
String -> Query -> m a
webAPIQuery String
url Query
params

-- | Get results key from a response object
getResultsList :: Object -> [Object]
getResultsList :: Object -> [Object]
getResultsList = Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results"