From 239f70f5f160a0ff222c12a63cb5c2541d555f9c Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Tue, 1 Jan 2019 15:03:21 +0100
Subject: Add back monoid instance for statement

---
 src/Test/VeriFuzz/Verilog/AST.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

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)
-- 
cgit