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