yogsototh/espial
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

slight refactor fetch title

Browse source
This commit is contained in:
Jon Schoning 2020-01-19 01:22:02 -06:00
parent 9dabf770a6
commit 01afd5efad
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Handler/Archive.hs
View file

@ -2,7 +2,7 @@ module Handler.Archive where
import Import import Import
import Data.Function ((&)) import Data.Function ((&))
import Data.Char (chr) import Data.Char (ord)
import qualified Data.Attoparsec.ByteString.Char8 as AP8 import qualified Data.Attoparsec.ByteString.Char8 as AP8
import qualified Data.Attoparsec.ByteString as AP import qualified Data.Attoparsec.ByteString as AP
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
@ -121,7 +121,8 @@ fetchPageTitle url =
(flip AP.parseOnly) bs $ do (flip AP.parseOnly) bs $ do
_ <- skipAnyTill (AP.string "<title") _ <- skipAnyTill (AP.string "<title")
_ <- skipAnyTill (AP.string ">") _ <- skipAnyTill (AP.string ">")
AP.takeTill (\w -> chr (fromEnum w) == '<') let lt = toEnum (ord '<')
AP.takeTill (== lt)
decodeHtmlBs = toStrict . toLazyText . htmlEncodedText . decodeUtf8 decodeHtmlBs = toStrict . toLazyText . htmlEncodedText . decodeUtf8
skipAnyTill end = go where go = end *> pure () <|> AP.anyWord8 *> go skipAnyTill end = go where go = end *> pure () <|> AP.anyWord8 *> go