------------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------------
-- UTILITIES
------------------------------------------------------------------------------------------------------------------------
sortPatchesByZombies :: Discrete2dCell ZombiesPatch -> Discrete2dCell ZombiesPatch -> Ordering
sortPatchesByZombies (_, (_, z1)) (_, (_, z2)) = compare z1 z2
sortPatchesByZombies :: Discrete2dCell ZombiesPatch -> Discrete2dCell ZombiesPatch -> Ordering
sortPatchesByZombies (_, (_, z1)) (_, (_, z2)) = compare z1 z2
sortPatchesByZombies (_, (_, z1)) (_, (_, z2)) = compare z1 z2