Web.Exhentai.API.MPV

Documentation

data DispatchRequest

Constructors

DispatchRequest

Fields

• galleryId :: Int
• page :: Int
• imgKey :: Text
• mpvKey :: Text
• exclude :: Maybe Server

Instances

Eq DispatchRequest

Defined in Web.Exhentai.API.MPV

Methods

(==) :: DispatchRequest -> DispatchRequest -> Bool

(/=) :: DispatchRequest -> DispatchRequest -> Bool

Show DispatchRequest

Defined in Web.Exhentai.API.MPV

Methods

showsPrec :: Int -> DispatchRequest -> ShowS

show :: DispatchRequest -> String

showList :: [DispatchRequest] -> ShowS

Generic DispatchRequest

Defined in Web.Exhentai.API.MPV

Associated Types

type Rep DispatchRequest :: Type -> Type

Methods

from :: DispatchRequest -> Rep DispatchRequest x

to :: Rep DispatchRequest x -> DispatchRequest

ToJSON DispatchRequest

Defined in Web.Exhentai.API.MPV

Methods

toJSON :: DispatchRequest -> Value

toEncoding :: DispatchRequest -> Encoding

toJSONList :: [DispatchRequest] -> Value

toEncodingList :: [DispatchRequest] -> Encoding

type Rep DispatchRequest

Defined in Web.Exhentai.API.MPV

type Rep DispatchRequest = D1 ('MetaData "DispatchRequest" "Web.Exhentai.API.MPV" "exh-0.2.0-inplace" 'False) (C1 ('MetaCons "DispatchRequest" 'PrefixI 'True) ((S1 ('MetaSel ('Just "galleryId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :*: S1 ('MetaSel ('Just "page") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :*: (S1 ('MetaSel ('Just "imgKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "mpvKey") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "exclude") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Server))))))

data DispatchResult

Constructors

DispatchResult

Fields

• dimension :: Text

  A piece of text describing the dimensions and the size of this image

• origImgPath :: Text

  The path part of the url pointing to the original image

• searchPath :: Text

  The path part of the url that searches for the gallery containing this image

• galleryPath :: Text

  The path part of the non-mpv page that displays this image

• width :: Dim
• height :: Dim
• imgLink :: Text

  The full url to this image

• server :: Server

  The server that serves this image

Instances

Eq DispatchResult

Defined in Web.Exhentai.API.MPV

Methods

(==) :: DispatchResult -> DispatchResult -> Bool

(/=) :: DispatchResult -> DispatchResult -> Bool

Show DispatchResult

Defined in Web.Exhentai.API.MPV

Methods

showsPrec :: Int -> DispatchResult -> ShowS

show :: DispatchResult -> String

showList :: [DispatchResult] -> ShowS

Generic DispatchResult

Defined in Web.Exhentai.API.MPV

Associated Types

type Rep DispatchResult :: Type -> Type

Methods

from :: DispatchResult -> Rep DispatchResult x

to :: Rep DispatchResult x -> DispatchResult

FromJSON DispatchResult

Defined in Web.Exhentai.API.MPV

Methods

parseJSON :: Value -> Parser DispatchResult

parseJSONList :: Value -> Parser [DispatchResult]

type Rep DispatchResult

Defined in Web.Exhentai.API.MPV

type Rep DispatchResult = D1 ('MetaData "DispatchResult" "Web.Exhentai.API.MPV" "exh-0.2.0-inplace" 'False) (C1 ('MetaCons "DispatchResult" 'PrefixI 'True) (((S1 ('MetaSel ('Just "dimension") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "origImgPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "searchPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "galleryPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) :*: ((S1 ('MetaSel ('Just "width") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Dim) :*: S1 ('MetaSel ('Just "height") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Dim)) :*: (S1 ('MetaSel ('Just "imgLink") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "server") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Server)))))

data Vars

All the variables defined in the scripts that came with the MPV

Constructors

Vars

Fields

• gid :: Int
• mpvkey :: Text
• apiUrl :: Text
• pageCount :: Int
• imageList :: [MpvImage]

Instances

Eq Vars

Defined in Web.Exhentai.Parsing.MPV

Methods

(==) :: Vars -> Vars -> Bool

(/=) :: Vars -> Vars -> Bool

Show Vars

Defined in Web.Exhentai.Parsing.MPV

Methods

showsPrec :: Int -> Vars -> ShowS

show :: Vars -> String

showList :: [Vars] -> ShowS

Generic Vars

Defined in Web.Exhentai.Parsing.MPV

Associated Types

type Rep Vars :: Type -> Type

Methods

from :: Vars -> Rep Vars x

to :: Rep Vars x -> Vars

type Rep Vars

Defined in Web.Exhentai.Parsing.MPV

type Rep Vars = D1 ('MetaData "Vars" "Web.Exhentai.Parsing.MPV" "exh-0.2.0-inplace" 'False) (C1 ('MetaCons "Vars" 'PrefixI 'True) ((S1 ('MetaSel ('Just "gid") 'SourceUnpack 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "mpvkey") 'SourceUnpack 'NoSourceStrictness 'DecidedStrict) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "apiUrl") 'SourceUnpack 'NoSourceStrictness 'DecidedStrict) (Rec0 Text) :*: (S1 ('MetaSel ('Just "pageCount") 'SourceUnpack 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Just "imageList") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [MpvImage])))))

data Server

Constructors

HAtH Int

Other Text

Instances

Eq Server

Defined in Web.Exhentai.API.MPV

Methods

(==) :: Server -> Server -> Bool

(/=) :: Server -> Server -> Bool

Show Server

Defined in Web.Exhentai.API.MPV

Methods

showsPrec :: Int -> Server -> ShowS

show :: Server -> String

showList :: [Server] -> ShowS

Generic Server

Defined in Web.Exhentai.API.MPV

Associated Types

type Rep Server :: Type -> Type

Methods

from :: Server -> Rep Server x

to :: Rep Server x -> Server

ToJSON Server

Defined in Web.Exhentai.API.MPV

Methods

toJSON :: Server -> Value

toEncoding :: Server -> Encoding

toJSONList :: [Server] -> Value

toEncodingList :: [Server] -> Encoding

FromJSON Server

Defined in Web.Exhentai.API.MPV

Methods

parseJSON :: Value -> Parser Server

parseJSONList :: Value -> Parser [Server]

type Rep Server

Defined in Web.Exhentai.API.MPV

type Rep Server = D1 ('MetaData "Server" "Web.Exhentai.API.MPV" "exh-0.2.0-inplace" 'False) (C1 ('MetaCons "HAtH" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :+: C1 ('MetaCons "Other" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

newtype Dim

Constructors

Dim Int

Instances

Eq Dim

Defined in Web.Exhentai.API.MPV

Methods

(==) :: Dim -> Dim -> Bool

(/=) :: Dim -> Dim -> Bool

Show Dim

Defined in Web.Exhentai.API.MPV

Methods

showsPrec :: Int -> Dim -> ShowS

show :: Dim -> String

showList :: [Dim] -> ShowS

FromJSON Dim

Defined in Web.Exhentai.API.MPV

Methods

parseJSON :: Value -> Parser Dim

parseJSONList :: Value -> Parser [Dim]

fetchMpv :: (MonadHttpState m, MonadIO m) => Gallery -> m Vars

Fetch the Vars from a Gallery's mpv page

toRequests :: Vars -> [DispatchRequest]

Generate a list of requests from a Vars

imageDispatch :: MonadHttpState m => DispatchRequest -> m DispatchResult

Calls the API to dispatch a image request to a H@H server

fetchImage :: (MonadHttpState m, MonadIO n) => DispatchRequest -> ContT r m (Response (ConduitT i ByteString n ()))

Fetch an image with a DispatchRequest

fetchImage' :: (MonadHttpState m, MonadIO n) => DispatchRequest -> m (Response (ConduitT i ByteString n ()))

Like fetchImage, but the user is responsible of closing the response