exh-1.0.0: src/Web/Exhentai/Parsing/Image.hs

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

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

imageSrc :: Traversal' Element Text
imageSrc = id "i1" .// id "i3" .// a .// (img % attr "src")
{-# INLINE imageSrc #-}

nextImage :: Traversal' Element Text
nextImage = id "i1" .// id "i3" .// (a % attr "href")
{-# INLINE nextImage #-}