diff options
Diffstat (limited to 'src/Test/VeriFuzz/Verilog/AST.hs')
| -rw-r--r-- | src/Test/VeriFuzz/Verilog/AST.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs index 515987a..0ed2a95 100644 --- a/src/Test/VeriFuzz/Verilog/AST.hs +++ b/src/Test/VeriFuzz/Verilog/AST.hs @@ -230,6 +230,9 @@ instance Semigroup Stmnt where a <> (SeqBlock b) = SeqBlock $ a : b a <> b = SeqBlock [a, b] +instance Monoid Stmnt where + mempty = SeqBlock [] + data Task = Task { _taskName :: Identifier , _taskExpr :: [Expr] } deriving (Eq) |