From a6ccd5a6b0d6206cc2798631b139f9fc27c311ac Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 1 Jan 2019 15:04:06 +0100 Subject: Fix Monoid instance for Expr --- src/Test/VeriFuzz/Verilog/AST.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Test/VeriFuzz/Verilog/AST.hs b/src/Test/VeriFuzz/Verilog/AST.hs index 0ed2a95..965f6e3 100644 --- a/src/Test/VeriFuzz/Verilog/AST.hs +++ b/src/Test/VeriFuzz/Verilog/AST.hs @@ -149,7 +149,7 @@ instance Semigroup Expr where a <> b = Concat [a, b] instance Monoid Expr where - mempty = 0 + mempty = Concat [] instance IsString Expr where fromString = Str . fromString -- cgit