keCommentRetractingMapDB
    :: (Foldable c) => c CommentId
    -> DB (Map CommentId CommentRetracting)
makeCommentClosingMapDB =
    closeOrRetractMap CommentClosingComment commentClosingComment
m
makeCommentRetractingMapDB
    :: (Foldable c) => c CommentId
    -> DB (Map CommentId CommentRetracting)
makeCommentClosingMapDB =
    closeOrRetractMap CommentClosingComment commentClosingComment
makeCommentClosingMapDB =
    closeOrRetractMap CommentClosingComment commentClosingComment