pretty print readinterface

kadena-io · Mar 10, 2024 · 1a99355 · 1a99355
1 parent 34f5971
commit 1a99355
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Pact/Types/Gas.hs b/src/Pact/Types/Gas.hs
@@ -102,8 +102,8 @@ instance Pretty ReadValue where
     ReadData {} -> "ReadData"
     ReadKey {} -> "ReadKey"
     ReadTxId -> "ReadTxId"
-    ReadModule {} -> "ReadModule"
-    ReadInterface {} -> "ReadInterface"
+    ReadModule mn _ -> "ReadModule" <> parens (pretty mn)
+    ReadInterface mn _ -> "ReadInterface" <> parens (pretty mn)
     ReadNamespace {} -> "ReadNamespace"
     ReadKeySet {} -> "ReadKeySet"
     ReadYield {} -> "ReadYield"