Minor changes

yavivanov · Jul 22, 2022 · 1845a45 · 1845a45
1 parent 170d075
commit 1845a45
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/theory/src/Theory/Constraint/Solver/ProofMethod.hs b/lib/theory/src/Theory/Constraint/Solver/ProofMethod.hs
@@ -623,7 +623,7 @@ itRanking tactic ags ctxt _sys = result
       prioToFunctions = map functionsPrio (_prios tactic)
       indexPrio = map (findIndex (==True)) $ map (applyIsPrio prioToFunctions ctxt _sys) ags    -- find the first prio that match every goal
       indexedPrio = sortOn fst $ zip indexPrio ags                                              -- ordening of goals given the fisrt prio they meet 
-      groupedPrio = trace ("Hellooooooo\n" ++ show indexedPrio) groupBy (\(indice1,_) (indice2,_) -> indice1 == indice2) indexedPrio        -- grouping goals by prio
+      groupedPrio = groupBy (\(indice1,_) (indice2,_) -> indice1 == indice2) indexedPrio        -- grouping goals by prio
       preorderedPrio = if (Nothing `elem` indexPrio) then map (snd . unzip) (tail groupedPrio) else map (snd . unzip) groupedPrio -- recovering ranked goals only (no prio = Nothing = fst)
 
       prioRankingFunctions = map rankingPrio (_prios tactic)
@@ -694,7 +694,7 @@ internalTacticRanking tactic ctxt _sys ags0 =
       let logMsg = ">>>>>>>>>>>>>>>>>>>>>>>> START INPUT\n"
                    ++ inp
                    ++ "\n>>>>>>>>>>>>>>>>>>>>>>>> START OUTPUT\n"
-                   ++ show pretttOut
+                   ++ prettyOut
                    ++ "\n>>>>>>>>>>>>>>>>>>>>>>>> END Oracle call\n"
       guard $ trace logMsg True
       return (res)

diff --git a/lib/theory/src/Theory/Text/Parser/Tactics.hs b/lib/theory/src/Theory/Text/Parser/Tactics.hs
@@ -190,7 +190,7 @@ tacticFunctions = M.fromList
             sysPattern = "~n":(map show $ concat (map (checkFormula oracleType) (S.toList $ L.get sFormulas sys)))
 
     checkFormula :: String -> LNGuarded -> [LVar]
-    checkFormula oracleType f = if rev && expG then trace (show $ concat $ getFormulaTermsCore f ) concat $ getFormulaTermsCore f else []
+    checkFormula oracleType f = if rev && expG then concat $ getFormulaTermsCore f else []
 
         where
           rev = or $ map matchReveal (map factTagName $ guardFactTags f)