X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsDecls.lhs;h=6f06cd81bc82cd7852d0cd5d5535e6d1573599b5;hb=a035c70f3f5606672be0534e3cf268e9d81f8a8e;hp=5be8245edc17dee763d11b260065bec2590d8f94;hpb=98b5d9f61854afb1ed4c8cf819154c1b89eb88bf;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 5be8245..6f06cd8 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -26,6 +26,7 @@ module HsDecls (
 -- friends:
 import HsBinds		( HsBinds, MonoBinds, Sig(..), FixitySig(..) )
 import HsExpr		( HsExpr )
+import HsImpExp		( ppr_var )
 import HsTypes
 import PprCore		( pprCoreRule )
 import HsCore		( UfExpr, UfBinder, HsIdInfo, pprHsIdInfo,
@@ -456,7 +457,10 @@ instance (NamedThing name, Outputable name, Outputable pat)
 	      => Outputable (TyClDecl name pat) where
 
     ppr (IfaceSig {tcdName = var, tcdType = ty, tcdIdInfo = info})
-	= hsep [ppr var, dcolon, ppr ty, pprHsIdInfo info]
+	= getPprStyle $ \ sty ->
+	   hsep [ if ifaceStyle sty then ppr var else ppr_var var,
+		  dcolon, ppr ty, pprHsIdInfo info
+		]
 
     ppr (ForeignType {tcdName = tycon})
 	= hsep [ptext SLIT("foreign import type dotnet"), ppr tycon]