jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-08-16 19:40:22 +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

6
tests/Css/NoUnknownCssClasses.elm
View File

@ -469,6 +469,9 @@ reportError knownClasses range name =
similarClasses : String -> Set String -> List String
similarClasses targetClass knownClasses =
let
classes : { first : Maybe { class : String, distance : Int }, second : Maybe { class : String, distance : Int } }
classes =
Set.foldl
(\class ({ first, second } as untouched) ->
let
@ -491,7 +494,8 @@ similarClasses targetClass knownClasses =
)
{ first = Nothing, second = Nothing }
knownClasses
|> (\{ first, second } -> List.filterMap (Maybe.map .class) [ first, second ])
in
List.filterMap (Maybe.map .class) [ classes.first, classes.second ]
isSmallerDistance : Int -> Maybe { a | distance : Int } -> Bool