 | Find base tag if it exists
findBase :: [Tag T.Text] -> T.Text
findBase (TagOpen "base" attrs:_) = fromMaybe "" (lookup "href" attrs)
f
findBase :: [Tag T.Text] -> T.Text
findBase (TagOpen "base" attrs:_) = fromMaybe "" (lookup "href" attrs)
findBase (TagOpen "base" attrs:_) = fromMaybe "" (lookup "href" attrs)