tchCommentAncestorRetractsDB :: CommentId -> DB [CommentRetracting]
fetchCommentAncestorClosuresDB =
    commentClosuresOrRetracts CommentClosingComment
f
fetchCommentAncestorRetractsDB :: CommentId -> DB [CommentRetracting]
fetchCommentAncestorClosuresDB =
    commentClosuresOrRetracts CommentClosingComment
fetchCommentAncestorClosuresDB =
    commentClosuresOrRetracts CommentClosingComment