tchCommentDestinationDB :: CommentId -> YDB CommentId
fetchCommentDestinationDB comment_id = do
    -- make sure the comment even exists, so this function terminates.
    void $ get404 comment_id
    mRethreaded <- fetchCommentRethreadDB comment_id
    maybe (return comment_id) fetchCommentDestinationDB mRethreaded

-- | Get a Comment's Tags.
f
fetchCommentDestinationDB :: CommentId -> YDB CommentId
fetchCommentDestinationDB comment_id = do
    -- make sure the comment even exists, so this function terminates.
    void $ get404 comment_id
    mRethreaded <- fetchCommentRethreadDB comment_id
    maybe (return comment_id) fetchCommentDestinationDB mRethreaded

-- | Get a Comment's Tags.
fetchCommentDestinationDB comment_id = do
    -- make sure the comment even exists, so this function terminates.
    void $ get404 comment_id
    mRethreaded <- fetchCommentRethreadDB comment_id
    maybe (return comment_id) fetchCommentDestinationDB mRethreaded

-- | Get a Comment's Tags.