{-
Helper function to get array name/index pairs in an assignment
-}
getArrTargets :: [AssignTarget] -> [(Name, Expression)]
getArrTargets targets =
  concatMap (\t -> case t of
                ArrTarget n i -> [(n, i)]
                _ -> []) targets
getArrTargets :: [AssignTarget] -> [(Name, Expression)]
getArrTargets targets =
  concatMap (\t -> case t of
                ArrTarget n i -> [(n, i)]
                _ -> []) targets
getArrTargets targets =
  concatMap (\t -> case t of
                ArrTarget n i -> [(n, i)]
                _ -> []) targets