diff options
Diffstat (limited to 'src/Test/VeriFuzz/Verilog/AST.hs')
-rw-r--r-- | src/Test/VeriFuzz/Verilog/AST.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs index 33ccdb4..3ae595f 100644 --- a/src/Test/VeriFuzz/Verilog/AST.hs +++ b/src/Test/VeriFuzz/Verilog/AST.hs @@ -189,7 +189,9 @@ data ModItem = ModCA ContAssign } | Initial Statement | Always Statement - | Decl Port + | Decl { declDir :: Maybe PortDir + , declPort :: Port + } deriving (Show, Eq, Ord) -- | 'module' module_identifier [list_of_ports] ';' { module_item } 'end_module' @@ -365,7 +367,7 @@ instance QC.Arbitrary ModItem where , ModInst <$> QC.arbitrary <*> QC.arbitrary <*> QC.arbitrary , Initial <$> QC.arbitrary , Always <$> (EventCtrl <$> QC.arbitrary <*> QC.arbitrary) - , Decl <$> QC.arbitrary + , Decl <$> pure Nothing <*> QC.arbitrary ] instance QC.Arbitrary ModDecl where |