genZone :: State -> Int -> Int -> BS.ByteString -> [(Int, Int)] -> [[(Int, Int)]] -> [[(Int, Int)]] -> Int -> Zone
genZone state x y zc0 conts seeds rands nconts = Zone { latlong   = (x, y)
                                                      , zonechunk = genZoneChunk state x y zc0 conts seeds rands nconts
                                                      }
genZone :: State -> Int -> Int -> BS.ByteString -> [(Int, Int)] -> [[(Int, Int)]] -> [[(Int, Int)]] -> Int -> Zone
genZone state x y zc0 conts seeds rands nconts = Zone { latlong   = (x, y)
                                                      , zonechunk = genZoneChunk state x y zc0 conts seeds rands nconts
                                                      }
genZone state x y zc0 conts seeds rands nconts = Zone { latlong   = (x, y)
                                                      , zonechunk = genZoneChunk state x y zc0 conts seeds rands nconts
                                                      }