fix Block ==

This commit is contained in:
Rowan Torbitzky-Lane 2025-01-21 23:54:25 -06:00
parent 1e02b2c6ac
commit a61c9e7133

View File

@ -31,7 +31,7 @@ instance Eq Gene where
GeneBoolVector xs == GeneBoolVector ys = xs == ys GeneBoolVector xs == GeneBoolVector ys = xs == ys
Close == Close = True Close == Close = True
StateFunc _ == StateFunc _ = True -- This line is probably not the best thing to do 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 _ == _ = False
instance Show Gene where instance Show Gene where