deleteTicketDB :: CommentId -> Internal.TicketName -> SDB ()
deleteTicketDB comment_id (Internal.TicketName ticket_name) = do
    lift $ delete $ from $ \t ->
        where_ $ t ^. TicketName    ==. val ticket_name
             &&. t ^. TicketComment ==. val comment_id
    userUnclaimCommentDB comment_id Nothing
deleteTicketDB :: CommentId -> Internal.TicketName -> SDB ()
deleteTicketDB comment_id (Internal.TicketName ticket_name) = do
    lift $ delete $ from $ \t ->
        where_ $ t ^. TicketName    ==. val ticket_name
             &&. t ^. TicketComment ==. val comment_id
    userUnclaimCommentDB comment_id Nothing
deleteTicketDB comment_id (Internal.TicketName ticket_name) = do
    lift $ delete $ from $ \t ->
        where_ $ t ^. TicketName    ==. val ticket_name
             &&. t ^. TicketComment ==. val comment_id
    userUnclaimCommentDB comment_id Nothing