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

Apply simplifications

Browse Source
This commit is contained in:
Jeroen Engels 2023-06-26 22:06:21 +02:00
parent fceaaf33e2
commit 1db1a05c69
2 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/NoInconsistentAliases/Visitor.elm
View File

@ -83,8 +83,10 @@ rememberBadAlias { lookupAlias, canMissAliases } (Node moduleNameRange moduleNam
moduleCallVisitor : Node ( ModuleName, String ) -> Context.Module -> ( List (Error {}), Context.Module )
moduleCallVisitor node context =
case Node.value node of
( moduleName, function ) ->
let
( moduleName, function ) =
Node.value node
in
( [], Context.addModuleCall moduleName function (Node.range node) context )

12
tests/NoModuleOnExposedNames.elm
View File

@ -124,8 +124,10 @@ rememberExposedNames { moduleName, moduleAlias, exposingList } context =
valueVisitor : Node ( ModuleName, String ) -> Context.Module -> ( List (Error {}), Context.Module )
valueVisitor node context =
case Node.value node of
( moduleName, name ) ->
let
( moduleName, name ) =
Node.value node
in
if Context.isFunctionExposed context moduleName name then
( [ moduleOnExposedValueError name (Node.range node) ]
, context
@ -137,8 +139,10 @@ valueVisitor node context =
typeVisitor : Node ( ModuleName, String ) -> Context.Module -> ( List (Error {}), Context.Module )
typeVisitor node context =
case Node.value node of
( moduleName, name ) ->
let
( moduleName, name ) =
Node.value node
in
if Context.isTypeExposed context moduleName name then
( [ moduleOnExposedTypeError name (Node.range node) ]
, context