From 88d11885a84d09f201db639a98ecf513b519fa0a Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sat, 1 Dec 2018 16:47:58 +0000 Subject: Add modport helper function --- src/Test/VeriFuzz/VerilogAST.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Test') diff --git a/src/Test/VeriFuzz/VerilogAST.hs b/src/Test/VeriFuzz/VerilogAST.hs index 109f024..5fdb900 100644 --- a/src/Test/VeriFuzz/VerilogAST.hs +++ b/src/Test/VeriFuzz/VerilogAST.hs @@ -90,3 +90,6 @@ emptyMod = ModuleDecl (Identifier "") [] [] setModName :: Text -> ModuleDecl -> ModuleDecl setModName str = moduleId .~ Identifier str + +addModPort :: Port -> ModuleDecl -> ModuleDecl +addModPort port = modPorts %~ ((:) port) -- cgit