@@ -166,9 +166,9 @@ addTypeAliases moduleName nodes environ =
166166 datatype (n,ts,t) = D.Datatype n ts [(n,[t])]
167167
168168 indented :: [D.ValidDecl] -> Doc
169− indented decls = P.vcat (map prty decls)
169+ indented decls = P.vcat (map prty decls) <> P.text "\n"
170170 where
171− prty decl = P.text "\n " <> pretty decl <> P.text "\n"
171+ prty decl = P.text "\n " <> pretty decl
172172
173173 msg1 = "The following type aliases are mutually recursive, forming an \
174174 \infinite type. When you expand them, they just keep getting bigger:"