rts: Stop tracing environment variables (fixes #15371)

Summary:
This tracing may cause a security issue as some external tools
out there expects user to set credentials in environment variables.

Reviewers: bgamari, erikd, simonmar, monoidal

Reviewed By: monoidal

Subscribers: tdammers, rwbarton, carter

GHC Trac Issues: #15371

Differential Revision: https://phabricator.haskell.org/D5187

1 files changed, 0 insertions, 10 deletions

diff --git a/rts/Trace.c b/rts/Trace.c
index 5b485c4d0f..5abd1d9596 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -478,16 +478,6 @@ void traceOSProcessInfo_(void) {
                                    argc, argv);
             }
         }
-        {
-            int envc = 0; char **envv;
-            getProgEnvv(&envc, &envv);
-            if (envc != 0) {
-                postCapsetVecEvent(EVENT_PROGRAM_ENV,
-                                   CAPSET_OSPROCESS_DEFAULT,
-                                   envc, envv);
-            }
-            freeProgEnvv(envc, envv);
-        }
     }
 }