Fix unconditional logging of simplifier statistics

compiling-to-categories · Feb 26, 2024 · 70dd9b0 · 70dd9b0
1 parent 4bc7058
commit 70dd9b0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/satisfy/src/ConCat/Simplify.hs b/satisfy/src/ConCat/Simplify.hs
@@ -59,7 +59,8 @@ dumpIfSet_dyn' :: Err.Logger -> DynFlags -> DumpFlag -> String -> SDoc -> IO ()
 dumpIfSet_dyn' logger _dflags dumpFlag str =
   Err.putDumpFileMaybe logger dumpFlag str Err.FormatText
 dumpIfSet' :: Err.Logger -> DynFlags -> Bool -> String -> SDoc -> IO ()
-dumpIfSet' logger _dflags _opt hdr doc = Err.logDumpMsg logger hdr doc
+dumpIfSet' logger _dflags dumpFlag hdr doc =
+  if dumpFlag then Err.logDumpMsg logger hdr doc else return ()
 #elif MIN_VERSION_GLASGOW_HASKELL(9,2,0,0)
 dumpIfSet_dyn' :: Err.Logger -> DynFlags -> DumpFlag -> String -> SDoc -> IO ()
 dumpIfSet_dyn' logger dflags dumpFlag str =