add: CodegenError Eq instance

Jabolol · Jan 19, 2025 · 16080b7 · 16080b7
1 parent 5938d7c
commit 16080b7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Codegen/Errors.hs b/lib/Codegen/Errors.hs
@@ -10,6 +10,7 @@ data CodegenError = CodegenError
   { errorLoc :: AT.SrcLoc,
     errorType :: CodegenErrorType
   }
+  deriving (Eq)
 
 -- | Error types for code generation.
 data CodegenErrorType
@@ -31,7 +32,7 @@ data CodegenErrorType
   | BreakOutsideLoop
   | UnsupportedConversion T.Type T.Type
   | UnsupportedGlobalDeclaration AT.Expr
-  deriving (Show)
+  deriving (Eq, Show)
 
 instance Show CodegenError where
   show :: CodegenError -> String