remove printing unit values in repl output

kadena-io · Feb 5, 2025 · c4ea4c3 · c4ea4c3
1 parent 5ce6678
commit c4ea4c3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/pact-repl/Pact/Core/Repl/Compile.hs b/pact-repl/Pact/Core/Repl/Compile.hs
@@ -53,6 +53,7 @@ import Pact.Core.Errors
 import Pact.Core.Interpreter
 import Pact.Core.Pretty hiding (pipe)
 import Pact.Core.Serialise
+import Pact.Core.PactValue
 
 
 import Pact.Core.IR.Eval.Runtime
@@ -257,6 +258,8 @@ interpretReplProgram interpreter sc@(SourceCode sourceFp source) = do
   parseSource lexerOutput
     | sourceIsPactFile = (fmap.fmap) (Lisp.RTLTopLevel) $ Lisp.parseProgram lexerOutput
     | otherwise = Lisp.parseReplProgram lexerOutput
+  displayValue :: FileLocSpanInfo -> ReplCompileValue -> ReplM ReplCoreBuiltin ReplCompileValue
+  displayValue _info v@(RCompileValue (InterpretValue PUnit _)) = pure v
   displayValue info p = p <$ replPrintLn info p
   sliceCode = \case
     Lisp.TLModule{} -> sliceFromSource