tchCommentsAncestorRetractsDB
    :: [CommentId]
    -> DB (Map CommentId [CommentRetracting])
fetchCommentsAncestorClosuresDB =
    commentsClosuresOrRetracts CommentClosingComment
f
fetchCommentsAncestorRetractsDB
    :: [CommentId]
    -> DB (Map CommentId [CommentRetracting])
fetchCommentsAncestorClosuresDB =
    commentsClosuresOrRetracts CommentClosingComment
fetchCommentsAncestorClosuresDB =
    commentsClosuresOrRetracts CommentClosingComment