{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} module Readability.Title ( title, shortTitle, ) where import Data.Foldable (find, maximumBy, minimumBy) import qualified Data.Map.Strict as Map import Data.Maybe (fromMaybe, listToMaybe) import Data.Ord (comparing) import qualified Data.Text as T import Text.XML import Text.XML.Cursor -- | Extracts title (@