Add Eq instance for ClusterNode

2d7aceb3 · Grégoire Locqueville · 588e104f · 2d7aceb3
Commit 2d7aceb3 authored Jan 31, 2025 by Grégoire Locqueville
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

Types.hs src/Graph/Types.hs +2 -1

No files found.
--- a/src/Graph/Types.hs
+++ b/src/Graph/Types.hs
@@ -40,4 +40,5 @@ data ClusterNode = ClusterNode
  , cl_community_id :: Int
  } deriving Show
+instance Eq ClusterNode where
+  ClusterNode n1 c1 == ClusterNode n2 c2 = (n1 == n2) && (c1 == c2)