getArrayNames :: DExp -> Set.Set Name
-- NOTE: Only add arrays to the set
getArrayNames (Index x [])  = Set.empty
getArrayNames :: DExp -> Set.Set Name
getArrayNames (Index x [])  = Set.empty
getArrayNames (Index x [])  = Set.empty