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