Remove Monoid instance for LVal, as it does not quite fit

1 files changed, 0 insertions, 9 deletions

diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs
index b643db5..4f2c52d 100644
--- a/src/Test/VeriFuzz/Verilog/AST.hs
+++ b/src/Test/VeriFuzz/Verilog/AST.hs
@@ -71,15 +71,6 @@ data LVal = RegId Identifier
           | RegConcat { _regConc :: [Expr] }
           deriving (Eq)
 
-instance Semigroup LVal where
-  (RegConcat a) <> (RegConcat b) = RegConcat $ a <> b
-  (RegConcat a) <> b = RegConcat $ a <> [b]
-  a <> (RegConcat b) = RegConcat $ a : b
-  a <> b = RegConcat [a, b]
-
-instance Monoid LVal where
-  mempty = RegConcat []
-
 -- | Binary operators that are currently supported in the verilog generation.
 data BinaryOperator = BinPlus    -- ^ @+@
                     | BinMinus   -- ^ @-@