From 776cb6f293d11667917dbadc08883b5e2981a197 Mon Sep 17 00:00:00 2001
From: Jeroen Engels <jfm.engels@gmail.com>
Date: Mon, 10 Jun 2024 23:46:44 +0200
Subject: [PATCH] Use a let expression

---
 tests/Css/NoUnknownCssClasses.elm | 46 +++++++++++++++++--------------
 1 file changed, 25 insertions(+), 21 deletions(-)

diff --git a/tests/Css/NoUnknownCssClasses.elm b/tests/Css/NoUnknownCssClasses.elm
index 5a7d4717..4d5e09d9 100644
--- a/tests/Css/NoUnknownCssClasses.elm
+++ b/tests/Css/NoUnknownCssClasses.elm
@@ -469,29 +469,33 @@ reportError knownClasses range name =
 
 similarClasses : String -> Set String -> List String
 similarClasses targetClass knownClasses =
-    Set.foldl
-        (\class ({ first, second } as untouched) ->
-            let
-                distance : Int
-                distance =
-                    computeDistance class targetClass
-            in
-            if isSmallerDistance distance first then
-                { first = Just { class = class, distance = distance }
-                , second = first
-                }
+    let
+        classes : { first : Maybe { class : String, distance : Int }, second : Maybe { class : String, distance : Int } }
+        classes =
+            Set.foldl
+                (\class ({ first, second } as untouched) ->
+                    let
+                        distance : Int
+                        distance =
+                            computeDistance class targetClass
+                    in
+                    if isSmallerDistance distance first then
+                        { first = Just { class = class, distance = distance }
+                        , second = first
+                        }
 
-            else if isSmallerDistance distance second then
-                { first = first
-                , second = Just { class = class, distance = distance }
-                }
+                    else if isSmallerDistance distance second then
+                        { first = first
+                        , second = Just { class = class, distance = distance }
+                        }
 
-            else
-                untouched
-        )
-        { first = Nothing, second = Nothing }
-        knownClasses
-        |> (\{ first, second } -> List.filterMap (Maybe.map .class) [ first, second ])
+                    else
+                        untouched
+                )
+                { first = Nothing, second = Nothing }
+                knownClasses
+    in
+    List.filterMap (Maybe.map .class) [ classes.first, classes.second ]
 
 
 isSmallerDistance : Int -> Maybe { a | distance : Int } -> Bool