jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-07-14 19:20:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use a let expression

Browse Source
This commit is contained in:
Jeroen Engels 2024-06-10 23:46:44 +02:00
parent 75650d1952
commit 776cb6f293
1 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
tests/Css/NoUnknownCssClasses.elm
View File

@ -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