getImportNames :: DownloadItems -> [IRI]
getImportNames di = case di of
  ItemMaps im -> map (\ (ItemNameMap i mi) -> fromMaybe i mi) im
  UniqueItem i -> [i]
getImportNames :: DownloadItems -> [IRI]
getImportNames di = case di of
  ItemMaps im -> map (\ (ItemNameMap i mi) -> fromMaybe i mi) im
  UniqueItem i -> [i]
getImportNames di = case di of
  ItemMaps im -> map (\ (ItemNameMap i mi) -> fromMaybe i mi) im
  UniqueItem i -> [i]