1 files changed, 6 insertions, 0 deletions
diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs
index 3ae595f..85c3e99 100644
--- a/src/Test/VeriFuzz/Verilog/AST.hs
+++ b/src/Test/VeriFuzz/Verilog/AST.hs
@@ -385,6 +385,12 @@ instance QC.Arbitrary VerilogSrc where
 instance IsString Identifier where
   fromString = Identifier . T.pack
 
+instance Semigroup Identifier where
+  (Identifier a) <> (Identifier b) = Identifier (a <> b)
+
+instance Monoid Identifier where
+  mempty = Identifier mempty
+
 -- Traversal Instance
 
 traverseExpr :: Traversal' Expression Expression