mmentClosuresOrRetracts'
    :: (PersistEntity val, PersistEntityBackend val ~ SqlBackend)
    => EntityField val CommentId -> CommentId -> DB [val]
commentClosuresOrRetracts' comment_field comment_id = do
    all_comment_ids <- (comment_id :) <$> fetchCommentAncestorsDB comment_id
    fmap (map entityVal) $
        select $
        from $ \table -> do
        where_ (table ^. comment_field `in_` valList all_comment_ids)
        return table

-- | Get all CommentClosings/CommentRetracts of any of the given Comments'
-- ancestors, grouped by the given Comments.
f
commentClosuresOrRetracts'
    :: (PersistEntity val, PersistEntityBackend val ~ SqlBackend)
    => EntityField val CommentId -> CommentId -> DB [val]
commentClosuresOrRetracts' comment_field comment_id = do
    all_comment_ids <- (comment_id :) <$> fetchCommentAncestorsDB comment_id
    fmap (map entityVal) $
        select $
        from $ \table -> do
        where_ (table ^. comment_field `in_` valList all_comment_ids)
        return table

-- | Get all CommentClosings/CommentRetracts of any of the given Comments'
-- ancestors, grouped by the given Comments.
commentClosuresOrRetracts' comment_field comment_id = do
    all_comment_ids <- (comment_id :) <$> fetchCommentAncestorsDB comment_id
    fmap (map entityVal) $
        select $
        from $ \table -> do
        where_ (table ^. comment_field `in_` valList all_comment_ids)
        return table

-- | Get all CommentClosings/CommentRetracts of any of the given Comments'
-- ancestors, grouped by the given Comments.