Simplify a fold

This commit is contained in:
Jeroen Engels 2020-01-15 16:34:41 +01:00
parent a2a5831e0b
commit 06b79f7b92

View File

@ -333,7 +333,7 @@ runOnModulesWithProjectData project rule sources =
, source = source , source = source
} }
) )
|> List.foldl (\module_ p -> Project.withModule module_ p) project |> List.foldl Project.withModule project
in in
case Project.filesThatFailedToParse projectWithModules of case Project.filesThatFailedToParse projectWithModules of
{ source } :: _ -> { source } :: _ ->