Commit 68bc0b6f authored by's avatar
Browse files

Indent an error message

parent 371cd67e
......@@ -952,7 +952,7 @@ genTaggeryBinds infos
derivingThingErr clas tys tycon tyvars why
= sep [hsep [ptext SLIT("Can't make a derived instance of"), quotes (ppr pred)],
parens why]
nest 2 (parens why)]
pred = mkClassPred clas (tys ++ [mkTyConApp tycon (mkTyVarTys tyvars)])
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment