module Web.Exhentai.Parsing.Search where
import Data.Text (Text)
import Optics.Core
import Text.XML.Optics
import Web.Exhentai.Utils
import Prelude hiding (div)
pages :: Traversal' Element Int
pages :: Traversal' Element Int
pages = Traversal' Element Element
pagesElem Traversal' Element Element
-> Traversal' Element Int
-> Optic
(Join (Join A_Traversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Int
Int
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// (AffineTraversal' Element Element
a AffineTraversal' Element Element
-> Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Traversal (WithIx Int) Element Element Node Node
forall k m l (ks :: IxList) (is :: IxList) (js :: IxList) s t u v a
b.
(Is k m, Is l m, m ~ Join k l, ks ~ Append is js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m ks s t a b
% Optic A_Traversal (WithIx Int) Element Element Node Node
lower Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Prism NoIx Node Node Text Text
-> Optic A_Traversal NoIx Element Element Text Text
forall m k l s t u v (is :: IxList) (js :: IxList) a b.
(m ~ Join k l, Is k m, Is l m, IxOptic k s t u v,
NonEmptyIndices is) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m js s t a b
%> Optic A_Prism NoIx Node Node Text Text
_Content Optic A_Traversal NoIx Element Element Text Text
-> Optic A_Prism NoIx Text Text Int Int -> Traversal' Element Int
forall k m l (ks :: IxList) (is :: IxList) (js :: IxList) s t u v a
b.
(Is k m, Is l m, m ~ Join k l, ks ~ Append is js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m ks s t a b
% Optic A_Prism NoIx Text Text Int Int
forall a. (Show a, Read a) => Prism' Text a
viaShowRead)
{-# INLINE pages #-}
pagesElem :: Traversal' Element Element
pagesElem :: Traversal' Element Element
pagesElem = Text -> AffineTraversal' Element Element
cl Text
"ido" AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
div AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// Text -> AffineTraversal' Element Element
cl Text
"ptt" AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
tr AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
td
{-# INLINE pagesElem #-}
linkOf :: Traversal' Element Text
linkOf :: Optic A_Traversal NoIx Element Element Text Text
linkOf = Optic A_Traversal (WithIx Int) Element Element Node Node
lower Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Prism NoIx Node Node Element Element
-> Traversal' Element Element
forall m k l s t u v (is :: IxList) (js :: IxList) a b.
(m ~ Join k l, Is k m, Is l m, IxOptic k s t u v,
NonEmptyIndices is) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m js s t a b
%> Optic A_Prism NoIx Node Node Element Element
_Element Traversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic A_Traversal NoIx Element Element Text Text
forall k m l (ks :: IxList) (is :: IxList) (js :: IxList) s t u v a
b.
(Is k m, Is l m, m ~ Join k l, ks ~ Append is js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m ks s t a b
% Name -> Optic An_AffineTraversal NoIx Element Element Text Text
attr Name
"href"
{-# INLINE linkOf #-}
galleryPreviewElement :: Traversal' Element Element
galleryPreviewElement :: Traversal' Element Element
galleryPreviewElement = Text -> AffineTraversal' Element Element
cl Text
"ido" AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
div AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// Text -> AffineTraversal' Element Element
cl Text
"itg glte" AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> Optic
(Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
(Append NoIx NoIx)
Element
Element
Element
Element
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
tr
{-# INLINE galleryPreviewElement #-}
previewImage :: Traversal' Element Text
previewImage :: Optic A_Traversal NoIx Element Element Text Text
previewImage = AffineTraversal' Element Element
tr AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// Text -> AffineTraversal' Element Element
cl Text
"gl1e" AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
div AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
a AffineTraversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// (AffineTraversal' Element Element
img AffineTraversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic An_AffineTraversal NoIx Element Element Text Text
forall k m l (ks :: IxList) (is :: IxList) (js :: IxList) s t u v a
b.
(Is k m, Is l m, m ~ Join k l, ks ~ Append is js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m ks s t a b
% Name -> Optic An_AffineTraversal NoIx Element Element Text Text
attr Name
"src")
{-# INLINE previewImage #-}
title :: Traversal' Element Text
title :: Optic A_Traversal NoIx Element Element Text Text
title = AffineTraversal' Element Element
tr AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// Text -> AffineTraversal' Element Element
cl Text
"gl1e" AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
div AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
a AffineTraversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// (AffineTraversal' Element Element
img AffineTraversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic An_AffineTraversal NoIx Element Element Text Text
forall k m l (ks :: IxList) (is :: IxList) (js :: IxList) s t u v a
b.
(Is k m, Is l m, m ~ Join k l, ks ~ Append is js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m ks s t a b
% Name -> Optic An_AffineTraversal NoIx Element Element Text Text
attr Name
"title")
{-# INLINE title #-}
galleryLink :: Traversal' Element Text
galleryLink :: Optic A_Traversal NoIx Element Element Text Text
galleryLink = AffineTraversal' Element Element
tr AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// Text -> AffineTraversal' Element Element
cl Text
"gl1e" AffineTraversal' Element Element
-> Optic A_Traversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) A_Traversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// AffineTraversal' Element Element
div AffineTraversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic
(Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
(Append NoIx NoIx)
Element
Element
Text
Text
forall k l (is :: IxList) s t (js :: IxList) a b.
(Is (Join k A_Traversal) (Join (Join k A_Traversal) l),
Is l (Join (Join k A_Traversal) l), Is k (Join k A_Traversal),
Is A_Traversal (Join k A_Traversal)) =>
Optic k is s t Element Element
-> Optic l js Element Element a b
-> Optic (Join (Join k A_Traversal) l) (Append is js) s t a b
.// (AffineTraversal' Element Element
a AffineTraversal' Element Element
-> Optic An_AffineTraversal NoIx Element Element Text Text
-> Optic An_AffineTraversal NoIx Element Element Text Text
forall k m l (ks :: IxList) (is :: IxList) (js :: IxList) s t u v a
b.
(Is k m, Is l m, m ~ Join k l, ks ~ Append is js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m ks s t a b
% Name -> Optic An_AffineTraversal NoIx Element Element Text Text
attr Name
"href")
{-# INLINE galleryLink #-}