tchCommentAllDescendantsDB :: CommentId -> DB [CommentId]
fetchCommentAllDescendantsDB comment_id = fmap (map unValue) $
    select $
    from $ \ca -> do
    where_ (ca ^. CommentAncestorAncestor ==. val comment_id)
    orderBy [asc (ca ^. CommentAncestorComment)]
    return (ca ^. CommentAncestorComment)

-- | Get all descendants of the given root comment.
f
fetchCommentAllDescendantsDB :: CommentId -> DB [CommentId]
fetchCommentAllDescendantsDB comment_id = fmap (map unValue) $
    select $
    from $ \ca -> do
    where_ (ca ^. CommentAncestorAncestor ==. val comment_id)
    orderBy [asc (ca ^. CommentAncestorComment)]
    return (ca ^. CommentAncestorComment)

-- | Get all descendants of the given root comment.
fetchCommentAllDescendantsDB comment_id = fmap (map unValue) $
    select $
    from $ \ca -> do
    where_ (ca ^. CommentAncestorAncestor ==. val comment_id)
    orderBy [asc (ca ^. CommentAncestorComment)]
    return (ca ^. CommentAncestorComment)

-- | Get all descendants of the given root comment.