diff options
-rw-r--r-- | src/Test/VeriFuzz/Verilog/Helpers.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Test/VeriFuzz/Verilog/Helpers.hs b/src/Test/VeriFuzz/Verilog/Helpers.hs index b04aa76..20c3b0d 100644 --- a/src/Test/VeriFuzz/Verilog/Helpers.hs +++ b/src/Test/VeriFuzz/Verilog/Helpers.hs @@ -70,3 +70,6 @@ addTestBench = addDescription $ Description testBench defaultPort :: Identifier -> Port defaultPort = Port Wire 1 + +portToExpr :: Port -> Expr +portToExpr (Port _ _ id) = Id id |