tagToCat :: TL.Text -> TL.Text -> Atom.Category
tagToCat domain tag =
  (Atom.newCategory $ TL.toStrict tag)
    { Atom.catLabel = Just $ TL.toStrict tag
    , Atom.catScheme = Just $ TL.toStrict domain <> "/tags/" <> encodeText (TL.toStrict tag)
    }
tagToCat :: TL.Text -> TL.Text -> Atom.Category
tagToCat domain tag =
  (Atom.newCategory $ TL.toStrict tag)
    { Atom.catLabel = Just $ TL.toStrict tag
    , Atom.catScheme = Just $ TL.toStrict domain <> "/tags/" <> encodeText (TL.toStrict tag)
    }
tagToCat domain tag =
  (Atom.newCategory $ TL.toStrict tag)
    { Atom.catLabel = Just $ TL.toStrict tag
    , Atom.catScheme = Just $ TL.toStrict domain <> "/tags/" <> encodeText (TL.toStrict tag)
    }