fix: infinite loop when installing new function

jxxcarlson · Jun 18, 2024 · 3da46dc · 3da46dc
1 parent 211ad0e
commit 3da46dc
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Install/Function.elm b/src/Install/Function.elm
@@ -153,8 +153,14 @@ declarationVisitor context (Config config) declaration =
                         (Install.Library.getExpressionFromString context confg.functionImplementation)
                         == Just Normalize.ConfirmedEquality
                         |> not
+
+                isImplemented =
+                    not (isNotImplemented function config)
             in
-            if name == config.functionName && isInCorrectModule && isNotImplemented function config then
+            if isImplemented then
+                ( [], { contextWithLastDeclarationRange | appliedFix = True } )
+
+            else if name == config.functionName && isInCorrectModule && isNotImplemented function config then
                 replaceFunction { range = Node.range declaration, functionName = config.functionName, functionImplementation = config.functionImplementation } context
 
             else