tchCommentsWithChildrenInDB :: [CommentId] -> DB [CommentId]
fetchCommentsWithChildrenInDB comment_ids = fmap (map unValue) $
    selectDistinct $
    from $ \ca -> do
    where_ (ca ^. CommentAncestorAncestor `in_` valList comment_ids)
    return (ca ^. CommentAncestorAncestor)

-- | Get the "true" target of this CommentId (which may be itself, if not
-- rethreaded - otherwise, ride the rethread train to the end)
f
fetchCommentsWithChildrenInDB :: [CommentId] -> DB [CommentId]
fetchCommentsWithChildrenInDB comment_ids = fmap (map unValue) $
    selectDistinct $
    from $ \ca -> do
    where_ (ca ^. CommentAncestorAncestor `in_` valList comment_ids)
    return (ca ^. CommentAncestorAncestor)

-- | Get the "true" target of this CommentId (which may be itself, if not
-- rethreaded - otherwise, ride the rethread train to the end)
fetchCommentsWithChildrenInDB comment_ids = fmap (map unValue) $
    selectDistinct $
    from $ \ca -> do
    where_ (ca ^. CommentAncestorAncestor `in_` valList comment_ids)
    return (ca ^. CommentAncestorAncestor)

-- | Get the "true" target of this CommentId (which may be itself, if not
-- rethreaded - otherwise, ride the rethread train to the end)