@@ -74,8 +74,9 @@ pprintDocs :: IState -> Docs -> Doc OutputAnnotation
7474pprintDocs ist (FunDoc d) = pprintFD ist d
7575pprintDocs ist (DataDoc t args)
7676 = text "Data type" <+> pprintFD ist t <$>
77− nest 4 (text "Constructors:" <> line <>
78− vsep (map (pprintFD ist) args))
77+ if null args then text "No constructors."
78+ else nest 4 (text "Constructors:" <> line <>
79+ vsep (map (pprintFD ist) args))
7980pprintDocs ist (ClassDoc n doc meths params instances)
8081 = nest 4 (text "Type class" <+> prettyName (ppopt_impl ppo) [] n <>
8182 if nullDocstring doc then empty else line <> renderDocstring doc)