diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-01 15:03:21 +0100 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-01 15:03:21 +0100 |
commit | 239f70f5f160a0ff222c12a63cb5c2541d555f9c (patch) | |
tree | ef0c5ae16adca40b2999a406f4c095517002f8ea /src/Test/VeriFuzz/Verilog | |
parent | 02d0f2aa3e4ee538a1f05de8032c448462150296 (diff) | |
download | verismith-239f70f5f160a0ff222c12a63cb5c2541d555f9c.tar.gz verismith-239f70f5f160a0ff222c12a63cb5c2541d555f9c.zip |
Add back monoid instance for statement
Diffstat (limited to 'src/Test/VeriFuzz/Verilog')
-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) |