fix Block ==
This commit is contained in:
parent
1e02b2c6ac
commit
a61c9e7133
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user