ModuleNameLookupTableTest: Add signature texts

This commit is contained in:
Jeroen Engels 2020-09-23 10:29:02 +02:00
parent efebce84d1
commit 82037d4e5b

View File

@ -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 )