Comment out 'Running ...' output

objectionary · May 24, 2024 · 944ccba · 944ccba
1 parent 6758e48
commit 944ccba
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/eo-phi-normalizer/app/Main.hs b/eo-phi-normalizer/app/Main.hs
@@ -378,14 +378,14 @@ main = withUtf8 do
   case opts of
     CLI'MetricsPhi' CLI'MetricsPhi{..} -> do
       (logStrLn, _) <- getLoggers outputFile
-      logStrLn "Computing metrics"
+      -- logStrLn "Computing metrics"
       metrics <- getMetrics bindingsPath inputFile
       logStrLn $ encodeToJSONString metrics
     CLI'TransformPhi' CLI'TransformPhi{..} -> do
       program' <- getProgram inputFile
       deps <- mapM (getProgram . Just) dependencies
       (logStrLn, logStr) <- getLoggers outputFile
-      logStrLn "Running transform"
+      -- logStrLn "Running transform"
       ruleSet <- parseRuleSetFromFile rulesPath
       unless (single || json) $ logStrLn ruleSet.title
       bindingsWithDeps <- case deepMergePrograms (program' : deps) of
@@ -439,7 +439,7 @@ main = withUtf8 do
               logStrLn "----------------------------------------------------"
     CLI'DataizePhi' CLI'DataizePhi{..} -> do
       (logStrLn, _logStr) <- getLoggers outputFile
-      logStrLn "Running dataize"
+      -- logStrLn "Running dataize"
       program' <- getProgram inputFile
       deps <- mapM (getProgram . Just) dependencies
       bindingsWithDeps <- case deepMergePrograms (program' : deps) of
@@ -472,7 +472,7 @@ main = withUtf8 do
               else do
                 forM_ (fst (dataizeChain ctx inputObject)) $ \LogEntry{..} ->
                   case logEntryLog of
-                    Left obj -> logStrLn (replicate logEntryLevel ' ' ++ logEntryMessage ++ ": " ++ printTree obj)
+                    Left obj -> logStrLn (replicate logEntryLevel ' ' ++ logEntryMessage ++ ": " ++ printTree (hideRho obj))
                     Right (Bytes bytes) -> logStrLn (replicate logEntryLevel ' ' ++ logEntryMessage ++ ": " ++ bytes)
           else do
             let dataize