sortPatchesByHumans :: Discrete2dCell ZombiesPatch -> Discrete2dCell ZombiesPatch -> Ordering
sortPatchesByHumans (_, p1) (_, p2) = compare (humansOnPatch p1) (humansOnPatch p2)
sortPatchesByHumans :: Discrete2dCell ZombiesPatch -> Discrete2dCell ZombiesPatch -> Ordering
sortPatchesByHumans (_, p1) (_, p2) = compare (humansOnPatch p1) (humansOnPatch p2)
sortPatchesByHumans (_, p1) (_, p2) = compare (humansOnPatch p1) (humansOnPatch p2)