From 10d98d5cf62c4db718667026d805982ac8ed9969 Mon Sep 17 00:00:00 2001 From: Jeroen Engels Date: Sat, 30 Nov 2024 18:48:30 +0100 Subject: [PATCH] Inline --- src/Review/Rule.elm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/src/Review/Rule.elm b/src/Review/Rule.elm index b4fb6b45..0c9f4e9b 100644 --- a/src/Review/Rule.elm +++ b/src/Review/Rule.elm @@ -5846,13 +5846,10 @@ findFixHelp project fixablePredicate errors accErrors maybeModuleZipper = findFixHelp project fixablePredicate restOfErrors (err :: accErrors) maybeModuleZipper firstFix :: restOfFixes -> - let - appliedFixes : Result (Error {}) { project : ValidProject, fixedFile : FixedFile } - appliedFixes = - applyFix project maybeModuleZipper err firstFix - |> Result.andThen (\fixResult -> applyFixes maybeModuleZipper err restOfFixes fixResult) - in - case appliedFixes of + case + applyFix project maybeModuleZipper err firstFix + |> Result.andThen (\fixResult -> applyFixes maybeModuleZipper err restOfFixes fixResult) + of Ok fixResult -> FoundFixHelp (errors ++ accErrors) { project = fixResult.project, fixedFile = fixResult.fixedFile, error = errorToReviewError err }