auditor

commit 91d3d7ae853629a3b7b35bfd55f2601593a375ff
parent ac535035c890f552caef6783768c881067b3d538
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 13 Feb 2026 07:49:22 +0400

style: use '(ghc runtime)' prefix instead of wrapping in parens

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>

Diffstat:
M
app/Main.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/app/Main.hs b/app/Main.hs
@@ -202,7 +202,7 @@ printFindingIndented lineMap f =
       content = T.pack (show (nctLine f)) <> ": "
              <> nctReasonText (nctReason f) <> ": " <> instrText (nctInstr f)
       line = if isGhc
-             then "  (" <> content <> ")"
+             then "  (ghc runtime) " <> content
              else "  " <> content
   in  TIO.putStrLn line
 
@@ -214,7 +214,7 @@ printFinding lineMap sym f =
   let isGhc = isGhcRuntimeFinding lineMap f
       content = sym <> ":" <> T.pack (show (nctLine f)) <> ": "
              <> nctReasonText (nctReason f) <> ": " <> instrText (nctInstr f)
-      line = if isGhc then "(" <> content <> ")" else content
+      line = if isGhc then "(ghc runtime) " <> content else content
   in  TIO.putStrLn line
 
 nctReasonText :: NctReason -> Text