jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-12-26 11:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

Optimize Review.Exceptions slightly

Browse Source
This commit is contained in:
Jeroen Engels 2020-04-27 19:51:23 +02:00
parent 941d1243ce
commit b28ec62b08
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Review/Exceptions.elm
View File

@ -48,7 +48,10 @@ addDirectories directories (Exceptions exceptions) =
dir ++ "/"
)
in
Exceptions { exceptions | directories = cleanedDirectories ++ exceptions.directories }
Exceptions
{ directories = cleanedDirectories ++ exceptions.directories
, files = exceptions.files
}
addFiles : List String -> Exceptions -> Exceptions
@ -60,7 +63,10 @@ addFiles files (Exceptions exceptions) =
|> List.map makePathOSAgnostic
|> Set.fromList
in
Exceptions { exceptions | files = Set.union cleanedFiles exceptions.files }
Exceptions
{ files = Set.union cleanedFiles exceptions.files
, directories = exceptions.directories
}
apply : Exceptions -> (a -> String) -> List a -> List a