From a61c9e7133f7557d593f8f1aa1ece2f949a35e2d Mon Sep 17 00:00:00 2001
From: Rowan Torbitzky-Lane <rowan.a.tl@protonmail.com>
Date: Tue, 21 Jan 2025 23:54:25 -0600
Subject: [PATCH] fix Block ==

---
 src/State.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/State.hs b/src/State.hs
index 539a29d..1708221 100644
--- a/src/State.hs
+++ b/src/State.hs
@@ -31,7 +31,7 @@ instance Eq Gene where
   GeneBoolVector xs == GeneBoolVector ys = xs == ys
   Close == Close = True
   StateFunc _ == StateFunc _ = True -- This line is probably not the best thing to do
-  Block [x] == Block [y] = [x] == [y]
+  Block x == Block y = x == y
   _ == _ = False
 
 instance Show Gene where