{-
Helper function to get the names of variables in an assignment
-}
getVarTargets :: [AssignTarget] -> [Name]
getVarTargets targets =
  concatMap (\t -> case t of
                VarTarget n -> [n]
                _ -> []) targets
getVarTargets :: [AssignTarget] -> [Name]
getVarTargets targets =
  concatMap (\t -> case t of
                VarTarget n -> [n]
                _ -> []) targets
getVarTargets targets =
  concatMap (\t -> case t of
                VarTarget n -> [n]
                _ -> []) targets