Merge pull request #1929 from digitallyinduced/track-exceptions-only-…

…in-prod Only track exception (e.g. with sentry) in production
digitallyinduced · Mar 12, 2024 · d4e8d1f · d4e8d1f
2 parents c526aeb + 779144d
commit d4e8d1f
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/IHP/ErrorController.hs b/IHP/ErrorController.hs
@@ -78,11 +78,12 @@ displayException exception action additionalInfo = do
     -- to the error tracking service (e.g. sentry). Usually this service also writes
     -- the error message to the stderr output
     --
-    let exceptionTracker = ?applicationContext.frameworkConfig.exceptionTracker.onException
-    let request = ?requestContext.request
+    when (?context.frameworkConfig.environment == Environment.Production) do
+        let exceptionTracker = ?applicationContext.frameworkConfig.exceptionTracker.onException
+        let request = ?requestContext.request
 
 
-    exceptionTracker (Just request) exception
+        exceptionTracker (Just request) exception
 
     supportingHandlers
         |> head