{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
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"
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" []
pdcChangesets :: String -> Query -> IO Object
pdcChangesets :: String -> Query -> IO Object
pdcChangesets server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "changesets"
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"
pdcComponentBranches :: String -> Query -> IO Object
pdcComponentBranches :: String -> Query -> IO Object
pdcComponentBranches server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "component-branches"
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" []
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
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"
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]
++ "/") []
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]
++ "/") []
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"
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
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
pdcGlobalComponents :: String -> Query -> IO Object
pdcGlobalComponents :: String -> Query -> IO Object
pdcGlobalComponents server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "global-components"
pdcImages :: String -> Query -> IO Object
pdcImages :: String -> Query -> IO Object
pdcImages server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "images"
pdcModules :: String -> Query -> IO Object
pdcModules :: String -> Query -> IO Object
pdcModules server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "modules"
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
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
pdcReleases :: String -> Query -> IO Object
pdcReleases :: String -> Query -> IO Object
pdcReleases server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "releases"
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"
pdcRpms :: String -> Query -> IO Object
pdcRpms :: String -> Query -> IO Object
pdcRpms server :: String
server =
String -> String -> Query -> IO Object
queryPDC String
server "rpms"
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
getResultsList :: Object -> [Object]
getResultsList :: Object -> [Object]
getResultsList = Text -> Object -> [Object]
forall a. FromJSON a => Text -> Object -> a
lookupKey' "results"