Safe Haskell	None
Language	Haskell2010

Web.Exhentai.API.MPV

Description

MPV (multi-page viewer) API.

Synopsis

data DispatchRequest = DispatchRequest {
- galleryId :: Int
- page :: Int
- imgKey :: Text
- mpvKey :: Text
- exclude :: Maybe Server
}
data Server
- = HAtH Int
- | Other Text
newtype Dim = Dim Int
buildRequest :: Effs '[Http, Error HttpException, Cookie, ConduitIO, Bracket, Throw ExhentaiError] m => Gallery -> m [DispatchRequest]
fetchImage :: Effs '[Http, Error HttpException, Cookie, ConduitIO, Bracket, Throw ExhentaiError] m => DispatchRequest -> ContT r m (Response (ConduitT i ByteString IO ()))

Documentation

data DispatchRequest Source #

Constructors

DispatchRequest
Fields galleryId :: Int page :: Int imgKey :: Text mpvKey :: Text exclude :: Maybe Server

Instances

Instances details

Eq DispatchRequest Source #
Instance details Defined in Web.Exhentai.API.MPV Methods (==) :: DispatchRequest -> DispatchRequest -> Bool # (/=) :: DispatchRequest -> DispatchRequest -> Bool #
Show DispatchRequest Source #
Instance details Defined in Web.Exhentai.API.MPV Methods showsPrec :: Int -> DispatchRequest -> ShowS # show :: DispatchRequest -> String # showList :: [DispatchRequest] -> ShowS #
ToJSON DispatchRequest Source #
Instance details Defined in Web.Exhentai.API.MPV Methods toJSON :: DispatchRequest -> Value # toEncoding :: DispatchRequest -> Encoding # toJSONList :: [DispatchRequest] -> Value # toEncodingList :: [DispatchRequest] -> Encoding #
(k ~ A_Lens, a ~ Maybe Server, b ~ Maybe Server) => LabelOptic "exclude" k DispatchRequest DispatchRequest a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx DispatchRequest DispatchRequest a b #
(k ~ A_Lens, a ~ Int, b ~ Int) => LabelOptic "galleryId" k DispatchRequest DispatchRequest a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx DispatchRequest DispatchRequest a b #
(k ~ A_Lens, a ~ Text, b ~ Text) => LabelOptic "imgKey" k DispatchRequest DispatchRequest a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx DispatchRequest DispatchRequest a b #
(k ~ A_Lens, a ~ Text, b ~ Text) => LabelOptic "mpvKey" k DispatchRequest DispatchRequest a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx DispatchRequest DispatchRequest a b #
(k ~ A_Lens, a ~ Int, b ~ Int) => LabelOptic "page" k DispatchRequest DispatchRequest a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx DispatchRequest DispatchRequest a b #

data Server Source #

Constructors

HAtH Int
Other Text

Instances

Instances details

Eq Server Source #
Instance details Defined in Web.Exhentai.API.MPV Methods (==) :: Server -> Server -> Bool # (/=) :: Server -> Server -> Bool #
Show Server Source #
Instance details Defined in Web.Exhentai.API.MPV Methods showsPrec :: Int -> Server -> ShowS # show :: Server -> String # showList :: [Server] -> ShowS #
ToJSON Server Source #
Instance details Defined in Web.Exhentai.API.MPV Methods toJSON :: Server -> Value # toEncoding :: Server -> Encoding # toJSONList :: [Server] -> Value # toEncodingList :: [Server] -> Encoding #
FromJSON Server Source #
Instance details Defined in Web.Exhentai.API.MPV Methods parseJSON :: Value -> Parser Server # parseJSONList :: Value -> Parser [Server] #
(k ~ A_Prism, a ~ Int, b ~ Int) => LabelOptic "_HAtH" k Server Server a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx Server Server a b #
(k ~ A_Prism, a ~ Text, b ~ Text) => LabelOptic "_Other" k Server Server a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx Server Server a b #

newtype Dim Source #

Constructors

Dim Int

Instances

Instances details

Eq Dim Source #
Instance details Defined in Web.Exhentai.API.MPV Methods (==) :: Dim -> Dim -> Bool # (/=) :: Dim -> Dim -> Bool #
Show Dim Source #
Instance details Defined in Web.Exhentai.API.MPV Methods showsPrec :: Int -> Dim -> ShowS # show :: Dim -> String # showList :: [Dim] -> ShowS #
FromJSON Dim Source #
Instance details Defined in Web.Exhentai.API.MPV Methods parseJSON :: Value -> Parser Dim # parseJSONList :: Value -> Parser [Dim] #
(k ~ An_Iso, a ~ Int, b ~ Int) => LabelOptic "_Dim" k Dim Dim a b Source #
Instance details Defined in Web.Exhentai.API.MPV Methods labelOptic :: Optic k NoIx Dim Dim a b #

buildRequest :: Effs '[Http, Error HttpException, Cookie, ConduitIO, Bracket, Throw ExhentaiError] m => Gallery -> m [DispatchRequest] Source #

Build dispatch requests for a gallery

fetchImage :: Effs '[Http, Error HttpException, Cookie, ConduitIO, Bracket, Throw ExhentaiError] m => DispatchRequest -> ContT r m (Response (ConduitT i ByteString IO ())) Source #

Fetch an image with a DispatchRequest