{-# LANGUAGE RankNTypes #-}

-- | Internal module
module Web.Exhentai.Parsing.Gallery where

import Data.Text (Text)
import Optics.Core
import Text.XML hiding (readFile)
import Text.XML.Optics
import Web.Exhentai.Utils
import Prelude hiding (div, id, readFile)

meta :: AffineTraversal' Element Element
meta :: AffineTraversal' Element Element
meta = AffineTraversal' Element Element
div AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
cl Text
"gm"
{-# INLINE meta #-}

title :: Traversal' Element Element
title :: Traversal' Element Element
title = AffineTraversal' Element Element
meta AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gd2")
{-# INLINE title #-}

enTitle :: Traversal' Element Text
enTitle :: Traversal' Element Text
enTitle = Traversal' Element Element
title Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
h1 AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gn" AffineTraversal' Element Element
-> Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Traversal NoIx Element Element Node Node
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (u :: OpticKind) (v :: OpticKind) (a :: OpticKind) (b :: OpticKind)
       (js :: [OpticKind]) (is :: [OpticKind]) (s :: OpticKind)
       (t :: OpticKind).
(m ~ Join k l, Is l m, Is k m, IxOptic l u v a b,
 NonEmptyIndices js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m is s t a b
<% Optic A_Traversal (WithIx Int) Element Element Node Node
lower Optic A_Traversal NoIx Element Element Node Node
-> Optic A_Prism NoIx Node Node Text Text
-> Traversal' Element Text
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 Node Node Text Text
_Content)
{-# INLINE enTitle #-}

jaTitle :: Traversal' Element Text
jaTitle :: Traversal' Element Text
jaTitle = Traversal' Element Element
title Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
h1 AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gj" AffineTraversal' Element Element
-> Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Traversal NoIx Element Element Node Node
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (u :: OpticKind) (v :: OpticKind) (a :: OpticKind) (b :: OpticKind)
       (js :: [OpticKind]) (is :: [OpticKind]) (s :: OpticKind)
       (t :: OpticKind).
(m ~ Join k l, Is l m, Is k m, IxOptic l u v a b,
 NonEmptyIndices js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m is s t a b
<% Optic A_Traversal (WithIx Int) Element Element Node Node
lower Optic A_Traversal NoIx Element Element Node Node
-> Optic A_Prism NoIx Node Node Text Text
-> Traversal' Element Text
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 Node Node Text Text
_Content)
{-# INLINE jaTitle #-}

mainMeta :: Traversal' Element Element
mainMeta :: Traversal' Element Element
mainMeta = AffineTraversal' Element Element
meta AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gmid")
{-# INLINE mainMeta #-}

mainMetaL :: Traversal' Element Element
mainMetaL :: Traversal' Element Element
mainMetaL = Traversal' Element Element
mainMeta Traversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gd3")
{-# INLINE mainMetaL #-}

mainMetaM :: Traversal' Element Element
mainMetaM :: Traversal' Element Element
mainMetaM = Traversal' Element Element
mainMeta Traversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gd4")
{-# INLINE mainMetaM #-}

mainMetaR :: Traversal' Element Element
mainMetaR :: Traversal' Element Element
mainMetaR = Traversal' Element Element
mainMeta Traversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gd5")
{-# INLINE mainMetaR #-}

previewStr :: Traversal' Element Text
previewStr :: Traversal' Element Text
previewStr = AffineTraversal' Element Element
meta AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
id Text
"gleft" AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
id Text
"gd1" 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 :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
.// Name -> Optic An_AffineTraversal NoIx Element Element Text Text
attr Name
"style"
{-# INLINE previewStr #-}

category :: Traversal' Element Text
category :: Traversal' Element Text
category = Traversal' Element Element
mainMetaL Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gdc") AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 (WithIx Int) Element Element Node Node
-> Optic A_Traversal NoIx Element Element Node Node
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (u :: OpticKind) (v :: OpticKind) (a :: OpticKind) (b :: OpticKind)
       (js :: [OpticKind]) (is :: [OpticKind]) (s :: OpticKind)
       (t :: OpticKind).
(m ~ Join k l, Is l m, Is k m, IxOptic l u v a b,
 NonEmptyIndices js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m is s t a b
<% Optic A_Traversal (WithIx Int) Element Element Node Node
lower Optic A_Traversal NoIx Element Element Node Node
-> Optic A_Prism NoIx Node Node Text Text
-> Traversal' Element Text
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 Node Node Text Text
_Content)
{-# INLINE category #-}

uploader :: Traversal' Element Text
uploader :: Traversal' Element Text
uploader = Traversal' Element Element
mainMetaL Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gdn") AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
-> Traversal' Element Text
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (is :: [OpticKind]) (js :: [OpticKind]) (a :: OpticKind)
       (b :: OpticKind).
(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)
{-# INLINE uploader #-}

metaPath :: Traversal' Element Element
metaPath :: Traversal' Element Element
metaPath = Traversal' Element Element
mainMetaL Traversal' Element Element
-> Traversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gdd") AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
table AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 metaPath #-}

metaKeys :: Traversal' Element Text
metaKeys :: Traversal' Element Text
metaKeys = Traversal' Element Element
metaPath Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
"gdt1" AffineTraversal' Element Element
-> Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Traversal NoIx Element Element Node Node
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (u :: OpticKind) (v :: OpticKind) (a :: OpticKind) (b :: OpticKind)
       (js :: [OpticKind]) (is :: [OpticKind]) (s :: OpticKind)
       (t :: OpticKind).
(m ~ Join k l, Is l m, Is k m, IxOptic l u v a b,
 NonEmptyIndices js) =>
Optic k is s t u v -> Optic l js u v a b -> Optic m is s t a b
<% Optic A_Traversal (WithIx Int) Element Element Node Node
lower Optic A_Traversal NoIx Element Element Node Node
-> Optic A_Prism NoIx Node Node Text Text
-> Traversal' Element Text
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 Node Node Text Text
_Content)
{-# INLINE metaKeys #-}

metaValues :: Traversal' Element Element
metaValues :: Traversal' Element Element
metaValues = Traversal' Element Element
metaPath Traversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
"gdt2"
{-# INLINE metaValues #-}

parent :: Traversal' Element Text
parent :: Traversal' Element Text
parent = 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 :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (is :: [OpticKind]) (js :: [OpticKind]) (a :: OpticKind)
       (b :: OpticKind).
(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
-> Traversal' Element Text
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 parent #-}

ratingCount :: Traversal' Element Int
ratingCount :: Traversal' Element Int
ratingCount =
  Traversal' Element Element
mainMetaL Traversal' Element Element
-> Traversal' Element Int
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Int
     Int
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
id Text
"gdr" AffineTraversal' Element Element
-> Traversal' Element Int
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Int
     Int
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
table AffineTraversal' Element Element
-> Traversal' Element Int
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Int
     Int
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> Traversal' Element Int
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Int
     Int
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
id Text
"grt3" AffineTraversal' Element Element
-> Traversal' Element Int
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Int
     Int
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
.// (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
-> Traversal' Element Text
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (is :: [OpticKind]) (js :: [OpticKind]) (a :: OpticKind)
       (b :: OpticKind).
(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 Traversal' Element Text
-> Optic A_Prism NoIx Text Text Int Int -> Traversal' Element Int
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 :: OpticKind). (Show a, Read a) => Prism' Text a
viaShowRead)
{-# INLINE ratingCount #-}

averageRating :: Traversal' Element Text
averageRating :: Traversal' Element Text
averageRating =
  Traversal' Element Element
mainMetaL Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
id Text
"gdr" AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
table AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
id Text
"rating_label" AffineTraversal' Element Element
-> Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Traversal (WithIx Int) Element Element Node Node
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
-> Traversal' Element Text
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (is :: [OpticKind]) (js :: [OpticKind]) (a :: OpticKind)
       (b :: OpticKind).
(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)
{-# INLINE averageRating #-}

tagList :: Traversal' Element Element
tagList :: Traversal' Element Element
tagList = Traversal' Element Element
mainMetaM Traversal' Element Element
-> Traversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"taglist") AffineTraversal' Element Element
-> Traversal' Element Element
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
table AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 tagList #-}

tagCategory :: Traversal' Element Text
tagCategory :: Traversal' Element Text
tagCategory = Traversal' Element Element
tagList Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
cl Text
"tc" AffineTraversal' Element Element
-> Optic A_Traversal (WithIx Int) Element Element Node Node
-> Optic A_Traversal (WithIx Int) Element Element Node Node
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
-> Traversal' Element Text
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (is :: [OpticKind]) (js :: [OpticKind]) (a :: OpticKind)
       (b :: OpticKind).
(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)
{-# INLINE tagCategory #-}

tagsByCategory :: Traversal' Element Element
tagsByCategory :: Traversal' Element Element
tagsByCategory = Traversal' Element Element
tagList Traversal' Element Element
-> AffineTraversal' Element Element
-> Optic
     (Join (Join A_Traversal A_Traversal) An_AffineTraversal)
     (Append NoIx NoIx)
     Element
     Element
     Element
     Element
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 -> AffineTraversal' Element Element
withoutAttribute Name
"class")
{-# INLINE tagsByCategory #-}

tags :: Traversal' Element Text
tags :: Traversal' Element Text
tags = AffineTraversal' Element Element
td AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
-> Traversal' Element Text
forall (m :: OpticKind) (k :: OpticKind) (l :: OpticKind)
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (is :: [OpticKind]) (js :: [OpticKind]) (a :: OpticKind)
       (b :: OpticKind).
(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)
{-# INLINE tags #-}

popupLink :: Traversal' Element Text
popupLink :: Traversal' Element Text
popupLink = Traversal' Element Element
mainMetaR Traversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join A_Traversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
named Text
"p" 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 :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
.// Name -> Optic An_AffineTraversal NoIx Element Element Text Text
attr Name
"onclick"
{-# INLINE popupLink #-}

imagePages :: Traversal' Element Text
imagePages :: Traversal' Element Text
imagePages = (AffineTraversal' Element Element
div AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gdt") AffineTraversal' Element Element
-> Traversal' Element Text
-> Optic
     (Join (Join An_AffineTraversal A_Traversal) A_Traversal)
     (Append NoIx NoIx)
     Element
     Element
     Text
     Text
forall (k :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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
"gdtl" 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 :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 imagePages #-}

newer :: Traversal' Element Text
newer :: Traversal' Element Text
newer = (AffineTraversal' Element Element
div AffineTraversal' Element Element
-> AffineTraversal' Element Element
-> AffineTraversal' Element Element
forall (k :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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
% Text -> AffineTraversal' Element Element
id Text
"gnd") 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 :: OpticKind) (l :: OpticKind) (is :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (js :: [OpticKind])
       (a :: OpticKind) (b :: OpticKind).
(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 :: OpticKind) (m :: OpticKind) (l :: OpticKind)
       (ks :: [OpticKind]) (is :: [OpticKind]) (js :: [OpticKind])
       (s :: OpticKind) (t :: OpticKind) (u :: OpticKind) (v :: OpticKind)
       (a :: OpticKind) (b :: OpticKind).
(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 newer #-}