gToReference :: Tag T.Text -> Maybe T.Text
tagToReference (TagOpen tagName attrs)
    | tagName == "a" = lookup "href" attrs
    | tagName == "link" = lookup "href" attrs
    | tagName == "script" = lookup "src" attrs
    | otherwise = Nothing
t
tagToReference :: Tag T.Text -> Maybe T.Text
tagToReference (TagOpen tagName attrs)
    | tagName == "a" = lookup "href" attrs
    | tagName == "link" = lookup "href" attrs
    | tagName == "script" = lookup "src" attrs
    | otherwise = Nothing
tagToReference (TagOpen tagName attrs)
    | tagName == "a" = lookup "href" attrs
    | tagName == "link" = lookup "href" attrs
    | tagName == "script" = lookup "src" attrs
    | otherwise = Nothing