tagToCatRSS :: TL.Text -> TL.Text -> RSS.RSSCategory
tagToCatRSS domain tag =
  RSS.RSSCategory
    { RSS.rssCategoryValue = TL.toStrict tag
    , RSS.rssCategoryDomain = Just $ TL.toStrict domain <> "/tags/" <> encodeText (TL.toStrict tag)
    , RSS.rssCategoryAttrs = []
    }
tagToCatRSS :: TL.Text -> TL.Text -> RSS.RSSCategory
tagToCatRSS domain tag =
  RSS.RSSCategory
    { RSS.rssCategoryValue = TL.toStrict tag
    , RSS.rssCategoryDomain = Just $ TL.toStrict domain <> "/tags/" <> encodeText (TL.toStrict tag)
    , RSS.rssCategoryAttrs = []
    }
tagToCatRSS domain tag =
  RSS.RSSCategory
    { RSS.rssCategoryValue = TL.toStrict tag
    , RSS.rssCategoryDomain = Just $ TL.toStrict domain <> "/tags/" <> encodeText (TL.toStrict tag)
    , RSS.rssCategoryAttrs = []
    }