tchCommentTicketsDB :: Set CommentId -> DB (Map CommentId (Entity Ticket))
fetchCommentTicketsDB comment_ids = do
    ticket_entities <- select $ from $ \t -> do
        where_ $ t ^. TicketComment `in_` valList (S.toList comment_ids)
        return t

    return $ M.fromList $ map (ticketComment . entityVal &&& id) ticket_entities


fetchCommentTicketsDB :: Set CommentId -> DB (Map CommentId (Entity Ticket))
fetchCommentTicketsDB comment_ids = do
    ticket_entities <- select $ from $ \t -> do
        where_ $ t ^. TicketComment `in_` valList (S.toList comment_ids)
        return t

    return $ M.fromList $ map (ticketComment . entityVal &&& id) ticket_entities
fetchCommentTicketsDB comment_ids = do
    ticket_entities <- select $ from $ \t -> do
        where_ $ t ^. TicketComment `in_` valList (S.toList comment_ids)
        return t

    return $ M.fromList $ map (ticketComment . entityVal &&& id) ticket_entities