module Web.Exhentai.Parsing.Image where

import Control.Lens
import Data.Text (Text)
import Text.XML.Lens
import Web.Exhentai.Utils
import Prelude hiding (id)

imageSrc :: Traversal' Element Text
imageSrc :: (Text -> f Text) -> Element -> f Element
imageSrc = Text -> Traversal' Element Element
id Text
"i1" ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall k (f :: Type -> Type) c s t (p :: k -> Type -> Type)
       (a :: k) b.
(Applicative f, Plated c) =>
LensLike f s t c c -> Over p f c c a b -> Over p f s t a b
... Text -> Traversal' Element Element
id Text
"i3" ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall k (f :: Type -> Type) c s t (p :: k -> Type -> Type)
       (a :: k) b.
(Applicative f, Plated c) =>
LensLike f s t c c -> Over p f c c a b -> Over p f s t a b
... (Element -> f Element) -> Element -> f Element
Traversal' Element Element
a ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall k (f :: Type -> Type) c s t (p :: k -> Type -> Type)
       (a :: k) b.
(Applicative f, Plated c) =>
LensLike f s t c c -> Over p f c c a b -> Over p f s t a b
... (Element -> f Element) -> Element -> f Element
Traversal' Element Element
img ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Name -> Traversal' Element Text
attr Name
"src"

nextPage :: Traversal' Element Text
nextPage :: (Text -> f Text) -> Element -> f Element
nextPage = Text -> Traversal' Element Element
id Text
"i1" ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall k (f :: Type -> Type) c s t (p :: k -> Type -> Type)
       (a :: k) b.
(Applicative f, Plated c) =>
LensLike f s t c c -> Over p f c c a b -> Over p f s t a b
... Text -> Traversal' Element Element
id Text
"i3" ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall k (f :: Type -> Type) c s t (p :: k -> Type -> Type)
       (a :: k) b.
(Applicative f, Plated c) =>
LensLike f s t c c -> Over p f c c a b -> Over p f s t a b
... (Element -> f Element) -> Element -> f Element
Traversal' Element Element
a ((Element -> f Element) -> Element -> f Element)
-> ((Text -> f Text) -> Element -> f Element)
-> (Text -> f Text)
-> Element
-> f Element
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Name -> Traversal' Element Text
attr Name
"href"