Rename tracing handle in simplifier env

Author: geo2a

kore/src/Kore/Equation/Application.hs

@@ -260,7 +260,7 @@ applyEquation ::
 applyEquation _ _term equation result = do
     let results = OrPattern.fromPattern result
     debugApplyEquation equation result
-    simplificationLogHandle <- liftSimplifier $ asks Simplifier.tracingEnabled
+    simplificationLogHandle <- liftSimplifier $ asks Simplifier.simplificationLogHandle
     when
         (isJust simplificationLogHandle)
         (liftIO $ emitEquationTrace (fromJust simplificationLogHandle))

kore/src/Kore/Simplify/API.hs

@@ -92,7 +92,7 @@ mkSimplifierEnv ::
     SmtMetadataTools Attribute.Symbol ->
     Map AxiomIdentifier [Equation VariableName] ->
     SMT Env
-mkSimplifierEnv tracingEnabled verifiedModule sortGraph overloadGraph metadataTools rawEquations =
+mkSimplifierEnv simplificationLogHandle verifiedModule sortGraph overloadGraph metadataTools rawEquations =
     runSimplifier earlyEnv initialize
   where
     !earlyEnv =
@@ -107,7 +107,7 @@ mkSimplifierEnv tracingEnabled verifiedModule sortGraph overloadGraph metadataTo
             , injSimplifier
             , overloadSimplifier
             , hookedSymbols = Map.empty
-            , tracingEnabled
+            , simplificationLogHandle
             }
     injSimplifier =
         {-# SCC "evalSimplifier/injSimplifier" #-}
@@ -155,7 +155,7 @@ mkSimplifierEnv tracingEnabled verifiedModule sortGraph overloadGraph metadataTo
                 , overloadSimplifier
                 , hookedSymbols
                 , axiomEquations
-                , tracingEnabled
+                , simplificationLogHandle
                 }
 
 {- | Evaluate a simplifier computation, returning the result of only one branch.

kore/src/Kore/Simplify/Simplify.hs

@@ -151,7 +151,7 @@ data Env = Env
     , injSimplifier :: !InjSimplifier
     , overloadSimplifier :: !OverloadSimplifier
     , hookedSymbols :: !(Map Id Text)
-    , tracingEnabled :: Maybe IO.Handle
+    , simplificationLogHandle :: Maybe IO.Handle
     }
 
 data SimplifierTrace = SimplifierTrace

kore/test/Test/Kore/Builtin/Builtin.hs

@@ -245,7 +245,7 @@ testEnv =
         , injSimplifier = testInjSimplifier
         , overloadSimplifier = testOverloadSimplifier
         , hookedSymbols = mkHookedSymbols $ indexedModuleSyntax verifiedModule
-        , tracingEnabled = Nothing
+        , simplificationLogHandle = Nothing
         }
 
 simplify :: TermLike RewritingVariableName -> IO [Pattern RewritingVariableName]

kore/test/Test/Kore/Rewrite/Function/Integration.hs

@@ -1184,5 +1184,5 @@ testEnv =
                 [ mkHookedSymbols $ indexedModuleSyntax verifiedModule
                 , listHookedSymbols
                 ]
-        , tracingEnabled = Nothing
+        , simplificationLogHandle = Nothing
         }

kore/test/Test/Kore/Rewrite/MockSymbols.hs

@@ -2317,7 +2317,7 @@ env =
         , injSimplifier = Test.Kore.Rewrite.MockSymbols.injSimplifier
         , overloadSimplifier = Test.Kore.Rewrite.MockSymbols.overloadSimplifier
         , hookedSymbols = Map.empty
-        , tracingEnabled = Nothing
+        , simplificationLogHandle = Nothing
         }
 
 generatorSetup :: ConsistentKore.Setup