loadData :: B.ByteString -> B.ByteString -> [MapData]
loadData md hdr = map (\d -> MapData (mapWh d) (getMapData md d mft)) mdsc
  where
    mft  = getHeader hdr
    hdrs = filter (/= 0) $ headerOffsets mft -- skip zero offsets as unused
    mdsc = map (\i -> getMapInfo $ B.drop i md) hdrs
loadData :: B.ByteString -> B.ByteString -> [MapData]
loadData md hdr = map (\d -> MapData (mapWh d) (getMapData md d mft)) mdsc
  where
    mft  = getHeader hdr
    hdrs = filter (/= 0) $ headerOffsets mft -- skip zero offsets as unused
    mdsc = map (\i -> getMapInfo $ B.drop i md) hdrs
loadData md hdr = map (\d -> MapData (mapWh d) (getMapData md d mft)) mdsc
  where
    mft  = getHeader hdr
    hdrs = filter (/= 0) $ headerOffsets mft -- skip zero offsets as unused
    mdsc = map (\i -> getMapInfo $ B.drop i md) hdrs