@@ -106,6 +106,7 @@ isExported (Just exps) decl = any (matches decl) exps
106106 matches (P.TypeSynonymDeclaration ident _ _) (P.TypeRef ident' _) = ident == ident'
107107 matches (P.TypeClassDeclaration ident _ _ _) (P.TypeClassRef ident') = ident == ident'
108108 matches (P.PositionedDeclaration _ d) r = d `matches` r
109+ matches d (P.PositionedDeclarationRef _ r) = d `matches` r
109110 matches _ _ = False
110111
111112isDctorExported :: P.ProperName -> Maybe [P.DeclarationRef] -> P.ProperName -> Bool