{-# LANGUAGE DataKinds #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}
module Jenkins.Rest.Method
(
text
, int
, (-/-)
, (-=-)
, (-&-)
, query
, (-?-)
, Formatter
, json
, xml
, python
, plain
,
job
, build
, view
, queue
, overallLoad
, computer
, Method
, Type(..)
, Format(..)
) where
import Data.Text (Text)
import Jenkins.Rest.Method.Internal
infix 1 -?-
infix 7 -=-
infixr 5 -/-, -&-
text :: Text -> Method 'Complete f
text :: forall (f :: Format). Text -> Method 'Complete f
text = forall (f :: Format). Text -> Method 'Complete f
Text
int :: Int -> Method 'Complete f
int :: forall (f :: Format). Int -> Method 'Complete f
int = forall a b. (Integral a, Num b) => a -> b
fromIntegral
(-/-) :: Method 'Complete f -> Method 'Complete f -> Method 'Complete f
-/- :: forall (f :: Format).
Method 'Complete f -> Method 'Complete f -> Method 'Complete f
(-/-) = forall (f :: Format).
Method 'Complete f -> Method 'Complete f -> Method 'Complete f
(:/)
(-=-) :: Text -> Text -> Method 'Query f
Text
x -=- :: forall (f :: Format). Text -> Text -> Method 'Query f
-=- Text
y = Text
x forall (f :: Format). Text -> Maybe Text -> Method 'Query f
:= forall a. a -> Maybe a
Just Text
y
(-&-) :: Method 'Query f -> Method 'Query f -> Method 'Query f
-&- :: forall (f :: Format).
Method 'Query f -> Method 'Query f -> Method 'Query f
(-&-) = forall (f :: Format).
Method 'Query f -> Method 'Query f -> Method 'Query f
(:&)
query :: [(Text, Maybe Text)] -> Method 'Query f
query :: forall (f :: Format). [(Text, Maybe Text)] -> Method 'Query f
query = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr (forall (f :: Format).
Method 'Query f -> Method 'Query f -> Method 'Query f
(:&) forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b c. (a -> b -> c) -> (a, b) -> c
uncurry forall (f :: Format). Text -> Maybe Text -> Method 'Query f
(:=)) forall (f :: Format). Method 'Query f
Empty
(-?-) :: Method 'Complete f -> Method 'Query f -> Method 'Complete f
-?- :: forall (f :: Format).
Method 'Complete f -> Method 'Query f -> Method 'Complete f
(-?-) = forall (f :: Format).
Method 'Complete f -> Method 'Query f -> Method 'Complete f
(:?)
json :: Formatter 'Json
json :: Formatter 'Json
json = forall (g :: Format).
((forall (f :: Format). Method 'Complete f) -> Method 'Complete g)
-> Formatter g
Formatter (\forall (f :: Format). Method 'Complete f
m -> forall (f :: Format). Method 'Complete f
m forall (f :: Format).
Method 'Complete f -> SFormat f -> Method 'Complete f
:@ SFormat 'Json
SJson)
{-# ANN json ("HLint: ignore Avoid lambda" :: String) #-}
xml :: Formatter 'Xml
xml :: Formatter 'Xml
xml = forall (g :: Format).
((forall (f :: Format). Method 'Complete f) -> Method 'Complete g)
-> Formatter g
Formatter (\forall (f :: Format). Method 'Complete f
m -> forall (f :: Format). Method 'Complete f
m forall (f :: Format).
Method 'Complete f -> SFormat f -> Method 'Complete f
:@ SFormat 'Xml
SXml)
{-# ANN xml ("HLint: ignore Avoid lambda" :: String) #-}
python :: Formatter 'Python
python :: Formatter 'Python
python = forall (g :: Format).
((forall (f :: Format). Method 'Complete f) -> Method 'Complete g)
-> Formatter g
Formatter (\forall (f :: Format). Method 'Complete f
m -> forall (f :: Format). Method 'Complete f
m forall (f :: Format).
Method 'Complete f -> SFormat f -> Method 'Complete f
:@ SFormat 'Python
SPython)
{-# ANN python ("HLint: ignore Avoid lambda" :: String) #-}
plain :: Formatter f
plain :: forall (f :: Format). Formatter f
plain = forall (g :: Format).
((forall (f :: Format). Method 'Complete f) -> Method 'Complete g)
-> Formatter g
Formatter (\forall (f :: Format). Method 'Complete f
m -> forall (f :: Format). Method 'Complete f
m)
{-# ANN plain ("HLint: ignore Use id" :: String) #-}
job :: Text -> Method 'Complete f
job :: forall (f :: Format). Text -> Method 'Complete f
job Text
name = Method 'Complete f
"job" forall (f :: Format).
Method 'Complete f -> Method 'Complete f -> Method 'Complete f
-/- forall (f :: Format). Text -> Method 'Complete f
text Text
name
build :: Text -> Int -> Method 'Complete f
build :: forall (f :: Format). Text -> Int -> Method 'Complete f
build Text
name Int
num = Method 'Complete f
"job" forall (f :: Format).
Method 'Complete f -> Method 'Complete f -> Method 'Complete f
-/- forall (f :: Format). Text -> Method 'Complete f
text Text
name forall (f :: Format).
Method 'Complete f -> Method 'Complete f -> Method 'Complete f
-/- forall (f :: Format). Int -> Method 'Complete f
int Int
num
view :: Text -> Method 'Complete f
view :: forall (f :: Format). Text -> Method 'Complete f
view Text
name = Method 'Complete f
"view" forall (f :: Format).
Method 'Complete f -> Method 'Complete f -> Method 'Complete f
-/- forall (f :: Format). Text -> Method 'Complete f
text Text
name
queue :: Method 'Complete f
queue :: forall (f :: Format). Method 'Complete f
queue = Method 'Complete f
"queue"
overallLoad :: Method 'Complete f
overallLoad :: forall (f :: Format). Method 'Complete f
overallLoad = Method 'Complete f
"overallLoad"
computer :: Method 'Complete f
computer :: forall (f :: Format). Method 'Complete f
computer = Method 'Complete f
"computer"