@@ -119,15 +119,15 @@ pprintDocs ist (ClassDoc n doc meths params instances superclasses)
119 infixes = idris_infixes ist
119 infixes = idris_infixes ist
121 pprintInstance (term, doc) =
121 pprintInstance (term, doc) =
122− nest 2 (dumpInstance term <>
122+ nest 4 (dumpInstance term <>
123− if nullDocstring doc
123+ if nullDocstring doc
124− then empty
124+ then empty
125− else line <>
125+ else line <>
126− renderDocstring
126+ renderDocstring
127− (renderDocTerm
127+ (renderDocTerm
128− (pprintDelab ist)
128+ (pprintDelab ist)
129− (normaliseAll (tt_ctxt ist) []))
129+ (normaliseAll (tt_ctxt ist) []))
132 dumpInstance :: PTerm -> Doc OutputAnnotation
132 dumpInstance :: PTerm -> Doc OutputAnnotation
133 dumpInstance = pprintPTerm ppo params' [] infixes
133 dumpInstance = pprintPTerm ppo params' [] infixes