From 0f71066aaa24ef6922c431259c559e060028398a Mon Sep 17 00:00:00 2001
From: Joe Farebrother <joefarebrother@github.com>
Date: Thu, 14 Oct 2021 11:15:41 +0100
Subject: [PATCH] Allow comments preceded by INTERNAL

---
 ql/src/queries/style/docs/ClassDocs.ql | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ql/src/queries/style/docs/ClassDocs.ql b/ql/src/queries/style/docs/ClassDocs.ql
index 5e335da7109..6bd67383712 100644
--- a/ql/src/queries/style/docs/ClassDocs.ql
+++ b/ql/src/queries/style/docs/ClassDocs.ql
@@ -16,7 +16,7 @@ predicate badStyle(string s) {
       .replaceAll("*", "")
       .splitAt("\n")
       .trim()
-      .matches(["A %", "An %", "The %"])
+      .matches(["A %", "An %", "The %", "INTERNAL"])
 }
 
 from Class c