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
|
||||
ExposesEverything.VariantA -> ExposesEverything.VariantA
|
||||
<nothing>.foo -> <nothing>.foo
|
||||
Something.B.Bar -> Something.B.Bar
|
||||
"""
|
||||
, details = [ "details" ]
|
||||
, under = "module"
|
||||
@ -316,8 +317,15 @@ declarationVisitor node context =
|
||||
|
||||
Just typeAnnotation ->
|
||||
typeAnnotationNames context typeAnnotation
|
||||
|
||||
signatureTexts : List String
|
||||
signatureTexts =
|
||||
function.declaration
|
||||
|> Node.value
|
||||
|> .arguments
|
||||
|> List.concatMap (collectPatterns context)
|
||||
in
|
||||
( [], { context | texts = context.texts ++ typeAnnotationTexts } )
|
||||
( [], { context | texts = context.texts ++ typeAnnotationTexts ++ signatureTexts } )
|
||||
|
||||
_ ->
|
||||
( [], context )
|
||||
|
Loading…
Reference in New Issue
Block a user