X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=blobdiff_plain;f=clash%2FCLasH%2FVHDL%2FTestbench.hs;fp=clash%2FCLasH%2FVHDL%2FTestbench.hs;h=46271463bb18fcdebbe221fadfe6db6bc359f1ea;hp=fa2e9dc7bde21544cc4236db4a0a319309c0f06e;hb=d52922fb4330e6a7e3bc8bd860a8bf5f98142509;hpb=0e1a00f9a5b95f27cc10b3ffaa6533b6f321fd5c

diff --git a/clash/CLasH/VHDL/Testbench.hs b/clash/CLasH/VHDL/Testbench.hs
index fa2e9dc..4627146 100644
--- 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)