jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-09-11 08:05:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

Avoid List.head

Browse Source
This commit is contained in:
Jeroen Engels 2024-05-07 18:48:00 +02:00
parent 1c072d4b92
commit 04102ce097
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Review/Test.elm
View File

@ -1038,20 +1038,19 @@ maybeCons mapper maybe list =
expectErrorsForModulesHelp : RuleCanProvideFixes -> List ( String, List ExpectedError ) -> List SuccessfulRunResult -> Expectation
expectErrorsForModulesHelp ruleCanProvideFixes expectedErrorsList runResults =
let
maybeUnknownModule : Maybe String
maybeUnknownModule =
unknownModules : List String
unknownModules =
Set.diff
(expectedErrorsList |> List.map Tuple.first |> Set.fromList)
(Set.fromList (List.map .moduleName runResults))
|> Set.toList
|> List.head
in
case maybeUnknownModule of
Just unknownModule ->
case unknownModules of
unknownModule :: _ ->
FailureMessage.unknownModulesInExpectedErrors unknownModule
|> Expect.fail
Nothing ->
[] ->
Expect.all
(expectErrorsForModuleFiles ruleCanProvideFixes expectedErrorsList runResults)
()