Add parenthesis to output of show function to mimic haskell's show function

[matthijs/master-project/cλash.git] / clash / CLasH / VHDL / Testbench.hs

diff --git a/clash/CLasH/VHDL/Testbench.hs b/clash/CLasH/VHDL/Testbench.hs
index fa2e9dc7bde21544cc4236db4a0a319309c0f06e..46271463bb18fcdebbe221fadfe6db6bc359f1ea 100644 (file)
--- a/clash/CLasH/VHDL/Testbench.hs
+++ b/clash/CLasH/VHDL/Testbench.hs
@@ -170,4 +170,4 @@ createOutputProc outs =
        writeOut outSig suffix = 
          genExprPCall2 writeId
                         (AST.PrimName $ AST.NSimple outputId)
-                        ((genExprFCall showId (AST.PrimName $ AST.NSimple outSig)) AST.:&: suffix)
+                        ((genExprFCall2 showId (AST.PrimName $ AST.NSimple outSig, AST.PrimLit "false")) AST.:&: suffix)