Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Perhaps this module should be a separate package and published to hackage.
Synopsis
- type RabbitMqBasicAuth = BasicAuth "RabbitMq Management" BasicAuthData
- type VHost = Text
- type QueueName = Text
- data AdminAPI route = AdminAPI {
- listQueuesByVHost :: route :- ("api" :> ("queues" :> (Capture "vhost" VHost :> (QueryParam "name" Text :> (QueryParam "use_regex" Bool :> Get '[JSON] [Queue])))))
- deleteQueue :: route :- ("api" :> ("queues" :> (Capture "vhost" VHost :> (Capture "queue" QueueName :> DeleteNoContent))))
- listConnectionsByVHost :: route :- ("api" :> ("vhosts" :> (Capture "vhost" Text :> ("connections" :> Get '[JSON] [Connection]))))
- deleteConnection :: route :- ("api" :> ("connections" :> (Capture "name" Text :> DeleteNoContent)))
- data AuthenticatedAPI route = AuthenticatedAPI {}
- jsonOptions :: Options
- data Queue = Queue {}
- data Connection = Connection {
- userProvidedName :: Maybe Text
- name :: Text
- adminClient :: BasicAuthData -> AdminAPI (AsClientT ClientM)
Documentation
type RabbitMqBasicAuth = BasicAuth "RabbitMq Management" BasicAuthData Source #
Upstream Docs: https://rawcdn.githack.com/rabbitmq/rabbitmq-server/v3.12.0/deps/rabbitmq_management/priv/www/api/index.html
AdminAPI | |
|
Instances
Generic (AdminAPI route) Source # | |
type Rep (AdminAPI route) Source # | |
Defined in Network.RabbitMqAdmin type Rep (AdminAPI route) = D1 ('MetaData "AdminAPI" "Network.RabbitMqAdmin" "extended-0.1.0-D4cMSnuM03B3VG13bPRRym" 'False) (C1 ('MetaCons "AdminAPI" 'PrefixI 'True) ((S1 ('MetaSel ('Just "listQueuesByVHost") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("api" :> ("queues" :> (Capture "vhost" VHost :> (QueryParam "name" Text :> (QueryParam "use_regex" Bool :> Get '[JSON] [Queue]))))))) :*: S1 ('MetaSel ('Just "deleteQueue") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("api" :> ("queues" :> (Capture "vhost" VHost :> (Capture "queue" QueueName :> DeleteNoContent))))))) :*: (S1 ('MetaSel ('Just "listConnectionsByVHost") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("api" :> ("vhosts" :> (Capture "vhost" Text :> ("connections" :> Get '[JSON] [Connection])))))) :*: S1 ('MetaSel ('Just "deleteConnection") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- ("api" :> ("connections" :> (Capture "name" Text :> DeleteNoContent)))))))) |
data AuthenticatedAPI route Source #
Instances
Generic (AuthenticatedAPI route) Source # | |
Defined in Network.RabbitMqAdmin type Rep (AuthenticatedAPI route) :: Type -> Type # from :: AuthenticatedAPI route -> Rep (AuthenticatedAPI route) x # to :: Rep (AuthenticatedAPI route) x -> AuthenticatedAPI route # | |
type Rep (AuthenticatedAPI route) Source # | |
Defined in Network.RabbitMqAdmin type Rep (AuthenticatedAPI route) = D1 ('MetaData "AuthenticatedAPI" "Network.RabbitMqAdmin" "extended-0.1.0-D4cMSnuM03B3VG13bPRRym" 'False) (C1 ('MetaCons "AuthenticatedAPI" 'PrefixI 'True) (S1 ('MetaSel ('Just "api") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (route :- (RabbitMqBasicAuth :> ToServant AdminAPI AsApi))))) |
Instances
FromJSON Queue Source # | |
ToJSON Queue Source # | |
Generic Queue Source # | |
Show Queue Source # | |
Eq Queue Source # | |
type Rep Queue Source # | |
Defined in Network.RabbitMqAdmin type Rep Queue = D1 ('MetaData "Queue" "Network.RabbitMqAdmin" "extended-0.1.0-D4cMSnuM03B3VG13bPRRym" 'False) (C1 ('MetaCons "Queue" 'PrefixI 'True) (S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "vhost") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) |
data Connection Source #
Connection | |
|
Instances
adminClient :: BasicAuthData -> AdminAPI (AsClientT ClientM) Source #