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"