tchCommentCommentTagsInDB :: [CommentId] -> DB [CommentTag]
fetchCommentCommentTagsInDB comment_ids = fmap (map entityVal) $
    select $
    from $ \ct -> do
    where_ (ct ^. CommentTagComment `in_` valList comment_ids)
    return ct

-- | Get a Comment's descendants' ids (don't filter hidden or unapproved
-- comments).
f
fetchCommentCommentTagsInDB :: [CommentId] -> DB [CommentTag]
fetchCommentCommentTagsInDB comment_ids = fmap (map entityVal) $
    select $
    from $ \ct -> do
    where_ (ct ^. CommentTagComment `in_` valList comment_ids)
    return ct

-- | Get a Comment's descendants' ids (don't filter hidden or unapproved
-- comments).
fetchCommentCommentTagsInDB comment_ids = fmap (map entityVal) $
    select $
    from $ \ct -> do
    where_ (ct ^. CommentTagComment `in_` valList comment_ids)
    return ct

-- | Get a Comment's descendants' ids (don't filter hidden or unapproved
-- comments).