diff --git a/tests/ModuleNameLookupTableTest.elm b/tests/ModuleNameLookupTableTest.elm index 64823dfc..025eefd3 100644 --- a/tests/ModuleNameLookupTableTest.elm +++ b/tests/ModuleNameLookupTableTest.elm @@ -123,6 +123,7 @@ Http.get -> Http.get .VariantA -> ExposesEverything.VariantA ExposesEverything.VariantA -> ExposesEverything.VariantA .foo -> .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 )