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

Extract function

Browse Source
This commit is contained in:
Jeroen Engels 2023-09-03 11:32:55 +02:00
parent f01508a61c
commit 2ee409c546
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/Review/ModuleNameLookupTable/Compute.elm
View File

@ -594,19 +594,22 @@ registerDeclaration declaration innerContext =
|> registerIfExposed (\name ctx -> registerExposedValue function name ctx) (Node.value nameNode)
Declaration.AliasDeclaration alias ->
{ innerContext | localTypes = Set.insert (Node.value alias.name) innerContext.localTypes }
|> (\ctx ->
case Node.value alias.typeAnnotation of
TypeAnnotation.Record _ ->
addToScope
{ variableType = TopLevelVariable
, node = alias.name
}
ctx
_ ->
let
registerAlias : Context -> Context
registerAlias ctx =
case Node.value alias.typeAnnotation of
TypeAnnotation.Record _ ->
addToScope
{ variableType = TopLevelVariable
, node = alias.name
}
ctx
)
_ ->
ctx
in
{ innerContext | localTypes = Set.insert (Node.value alias.name) innerContext.localTypes }
|> registerAlias
|> registerIfExposed registerExposedTypeAlias (Node.value alias.name)
Declaration.CustomTypeDeclaration { name, constructors } ->