X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsDecls.lhs;h=9543cadfca61366620e0dc556e65ef7e7e71d594;hp=f6beb23bc86ac8a8d4adabb8a00991527aa8a2a5;hb=3ad8f84f6a75f240383e62a14472d14eb372dcd1;hpb=15486d73d84483243f40fa245e63e7e88d5ed0ad

diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index f6beb23..9543cad 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -731,11 +731,11 @@ instDeclATs (InstDecl _ _ _ ats) = ats
 type LDerivDecl name = Located (DerivDecl name)
 
 data DerivDecl name
-  = DerivDecl (Located name) (LHsType name)
+  = DerivDecl (LHsType name) (Located name)
 
 instance (OutputableBndr name) => Outputable (DerivDecl name) where
-    ppr (DerivDecl cls ty)
-      = hsep [ptext SLIT("deriving"), ppr cls, ppr ty]
+    ppr (DerivDecl ty n) 
+        = hsep [ptext SLIT("deriving"), ppr ty, ptext SLIT("for"), ppr n]
 \end{code}
 
 %************************************************************************