jfmengels/elm-review
1
1
Fork 0
mirror of https://github.com/jfmengels/elm-review.git synced 2024-11-23 14:55:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

Simplify NoInvalidLicense

Browse Source
This commit is contained in:
Jeroen Engels 2020-04-02 00:26:21 +02:00
parent 61aaf0f873
commit a0df1118d9
1 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/NoInvalidLicense.elm
View File

@ -11,7 +11,6 @@ module NoInvalidLicense exposing (rule)
import Dict exposing (Dict)
import Elm.License
import Elm.Package
import Elm.Project
import Elm.Syntax.Range exposing (Range)
import Review.Project.Dependency as Dependency exposing (Dependency)
@ -73,26 +72,7 @@ elmJsonVisitor : Maybe { elmJsonKey : Rule.ElmJsonKey, project : Elm.Project.Pro
elmJsonVisitor maybeProject projectContext =
case maybeProject of
Just { elmJsonKey, project } ->
let
directProjectDependencies : Set String
directProjectDependencies =
case project of
Elm.Project.Package { deps } ->
deps
|> List.map (Tuple.first >> Elm.Package.toString)
|> Set.fromList
Elm.Project.Application { depsDirect } ->
depsDirect
|> List.map (Tuple.first >> Elm.Package.toString)
|> Set.fromList
in
( []
, { projectContext
| elmJsonKey = Just elmJsonKey
, directProjectDependencies = directProjectDependencies
}
)
( [], { projectContext | elmJsonKey = Just elmJsonKey } )
Nothing ->
( [], projectContext )
@ -105,7 +85,6 @@ elmJsonVisitor maybeProject projectContext =
type alias ProjectContext =
{ elmJsonKey : Maybe Rule.ElmJsonKey
, licenses : Dict String String
, directProjectDependencies : Set String
}
@ -113,7 +92,6 @@ initialProjectContext : ProjectContext
initialProjectContext =
{ elmJsonKey = Nothing
, licenses = Dict.empty
, directProjectDependencies = Set.empty
}