mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-12-25 18:51:41 +03:00
ModuleNameLookupTableTest: Add signature texts
This commit is contained in:
parent
efebce84d1
commit
82037d4e5b
@ -123,6 +123,7 @@ Http.get -> Http.get
|
|||||||
<nothing>.VariantA -> ExposesEverything.VariantA
|
<nothing>.VariantA -> ExposesEverything.VariantA
|
||||||
ExposesEverything.VariantA -> ExposesEverything.VariantA
|
ExposesEverything.VariantA -> ExposesEverything.VariantA
|
||||||
<nothing>.foo -> <nothing>.foo
|
<nothing>.foo -> <nothing>.foo
|
||||||
|
Something.B.Bar -> Something.B.Bar
|
||||||
"""
|
"""
|
||||||
, details = [ "details" ]
|
, details = [ "details" ]
|
||||||
, under = "module"
|
, under = "module"
|
||||||
@ -316,8 +317,15 @@ declarationVisitor node context =
|
|||||||
|
|
||||||
Just typeAnnotation ->
|
Just typeAnnotation ->
|
||||||
typeAnnotationNames context typeAnnotation
|
typeAnnotationNames context typeAnnotation
|
||||||
|
|
||||||
|
signatureTexts : List String
|
||||||
|
signatureTexts =
|
||||||
|
function.declaration
|
||||||
|
|> Node.value
|
||||||
|
|> .arguments
|
||||||
|
|> List.concatMap (collectPatterns context)
|
||||||
in
|
in
|
||||||
( [], { context | texts = context.texts ++ typeAnnotationTexts } )
|
( [], { context | texts = context.texts ++ typeAnnotationTexts ++ signatureTexts } )
|
||||||
|
|
||||||
_ ->
|
_ ->
|
||||||
( [], context )
|
( [], context )
|
||||||
|
Loading…
Reference in New Issue
Block a user