@@ -78,12 +78,12 @@ isDctorExported ident (Just exps) ctor = test `any` exps
7878-- |
7979-- Return the exported data constructors for a given type.
8080--
81−exportedDctors :: Module -> ProperName -> [ProperName]
81+exportedDctors :: Module -> ProperName -> [(ProperName, [Type])]
8282exportedDctors (Module _ _ decls exps) ident =
83− filter (isDctorExported ident exps) dctors
83+ filter (isDctorExported ident exps . fst) dctors
8484 where
8585 dctors = concatMap getDctors (flattenDecls decls)
86− getDctors (DataDeclaration _ _ _ ctors) = map fst ctors
86+ getDctors (DataDeclaration _ _ _ ctors) = ctors
8787 getDctors (PositionedDeclaration _ _ d) = getDctors d
8888 getDctors _ = []
8989