DEBUG: ADD UNUSED TYPE

jfmengels · Nov 30, 2024 · 98710f8 · 98710f8
1 parent f243736
commit 98710f8
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/src/Review/Error.elm b/src/Review/Error.elm
@@ -60,6 +60,7 @@ type ErrorFixes
     = NoFixes
     | Available (Dict String ( Target, List Fix ))
     | FailedToApply FixProblem.FixProblem
+    | Unused FixProblem.FixProblem
 
 
 fixesFromMaybe : String -> Maybe (List Fix) -> ErrorFixes

diff --git a/src/Review/Rule.elm b/src/Review/Rule.elm
@@ -4430,6 +4430,9 @@ errorFixes (Review.Error.ReviewError err) =
         Review.Error.FailedToApply _ ->
             Nothing
 
+        Review.Error.Unused _ ->
+            Nothing
+
 
 {-| Get the reason why the fix for an error failed when its available automatic fix was attempted and deemed incorrect.
 
@@ -4457,6 +4460,9 @@ errorFixFailure (Review.Error.ReviewError err) =
                     FixProblem.HasCollisionsInFixRanges ->
                         Fix.HasCollisionsInFixRanges
 
+        Review.Error.Unused _ ->
+            Nothing
+
 
 {-| Get the file path of an [`Error`](#Error).
 -}
@@ -4781,6 +4787,9 @@ qualifyError params (Error err) acc =
 
                             Review.Error.FailedToApply _ ->
                                 err.fixes
+
+                            Review.Error.Unused _ ->
+                                err.fixes
                 }
 
             else
@@ -5941,6 +5950,9 @@ isFixable predicate (Error err) =
         Review.Error.FailedToApply _ ->
             Nothing
 
+        Review.Error.Unused _ ->
+            Nothing
+
 
 applySingleModuleFix : ValidProject -> Maybe (Zipper (Graph.NodeContext FilePath ())) -> Error {} -> String -> List InternalFix.Fix -> Result (Error {}) { project : ValidProject, fixedFile : FixedFile }
 applySingleModuleFix project maybeModuleZipper ((Error headError) as err) targetPath fixes =

diff --git a/src/Review/Test.elm b/src/Review/Test.elm
@@ -1764,6 +1764,9 @@ checkFixesAreCorrect (Review.Project.Internal.Project project) ((Error.ReviewErr
         Error.FailedToApply fixProblem ->
             Expect.fail <| FailureMessage.fixProblem_ fixProblem error_
 
+        Error.Unused _ ->
+            Expect.pass
+
 
 checkFixesMatch : ProjectInternals -> ReviewError -> Dict String String -> List ( String, ( Error.Target, List Fix ) ) -> Expectation
 checkFixesMatch project error_ expectedFixed fixes =