Fix key for target

Author: jfmengels

tests/NoUnused/CustomTypeConstructors.elm

@@ -667,12 +667,12 @@ expressionVisitor node moduleContext =
                     fixes : Dict ( ModuleNameAsString, ConstructorName ) (Dict ModuleNameAsString (List Fix))
                     fixes =
                         Set.foldl
-                            (\(( moduleName, _ ) as key) dict ->
+                            (\key dict ->
                                 Dict.update
                                     key
                                     (\existingValues ->
                                         updateToAdd
-                                            moduleName
+                                            moduleContext.currentModuleName
                                             (Fix.replaceRangeBy (Node.range node) replacement)
                                             (Maybe.withDefault Dict.empty existingValues)
                                             |> Just
@@ -716,12 +716,12 @@ expressionVisitor node moduleContext =
                     fixes : Dict ( ModuleNameAsString, ConstructorName ) (Dict ModuleNameAsString (List Fix))
                     fixes =
                         Set.foldl
-                            (\(( moduleName, _ ) as key) dict ->
+                            (\key dict ->
                                 Dict.update
                                     key
                                     (\existingValues ->
                                         updateToAdd
-                                            moduleName
+                                            moduleContext.currentModuleName
                                             (Fix.replaceRangeBy (Node.range node) replacement)
                                             (Maybe.withDefault Dict.empty existingValues)
                                             |> Just
@@ -772,7 +772,7 @@ caseBranchEnterVisitor caseExpression ( casePattern, body ) moduleContext =
         fixes : Dict ( ModuleNameAsString, ConstructorName ) (Dict ModuleNameAsString (List Fix))
         fixes =
             Set.foldl
-                (\(( moduleName, _ ) as key) acc ->
+                (\key acc ->
                     let
                         fix : Fix
                         fix =
@@ -785,7 +785,7 @@ caseBranchEnterVisitor caseExpression ( casePattern, body ) moduleContext =
                         key
                         (\existingValues ->
                             updateToAdd
-                                moduleName
+                                moduleContext.currentModuleName
                                 fix
                                 (Maybe.withDefault Dict.empty existingValues)
                                 |> Just