From 01afd5efad0feb3dcd7bfc4397c989feaeaaeedb Mon Sep 17 00:00:00 2001
From: Jon Schoning <jonschoning@gmail.com>
Date: Sun, 19 Jan 2020 01:22:02 -0600
Subject: [PATCH] slight refactor fetch title

---
 src/Handler/Archive.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Archive.hs b/src/Handler/Archive.hs
index ba46915..294bdde 100644
--- a/src/Handler/Archive.hs
+++ b/src/Handler/Archive.hs
@@ -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