hdfsFileDistribution :: Config -> Path -> IO [(String, Int)]
hdfsFileDistribution config path = do
  blockLocations <- hdfsFileBlockLocations config path
  return $ groupCount (concat $ map hostNames blockLocations)
    where
      hostNames :: Types.BlockLocation -> [String]
      hostNames = map TL.unpack . toList . Types.blockLocation_names
hdfsFileDistribution :: Config -> Path -> IO [(String, Int)]
hdfsFileDistribution config path = do
  blockLocations <- hdfsFileBlockLocations config path
  return $ groupCount (concat $ map hostNames blockLocations)
    where
      hostNames :: Types.BlockLocation -> [String]
      hostNames = map TL.unpack . toList . Types.blockLocation_names
hdfsFileDistribution config path = do
  blockLocations <- hdfsFileBlockLocations config path
  return $ groupCount (concat $ map hostNames blockLocations)
    where
      hostNames :: Types.BlockLocation -> [String]
      hostNames = map TL.unpack . toList . Types.blockLocation_names