Commit 68bc0b6f authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Indent an error message

parent 371cd67e
......@@ -952,7 +952,7 @@ genTaggeryBinds infos
\begin{code}
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)]
where
pred = mkClassPred clas (tys ++ [mkTyConApp tycon (mkTyVarTys tyvars)])
......
Markdown is supported
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