X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fiface%2FIfaceType.lhs;h=a4cf18376ac6e650b0322d205bd2f5914b0cca98;hb=98643c2d5bd08ec71edd555e8989e530de6f5921;hp=2c83155bdaeb120df463d3c51c7acc2d1512683c;hpb=7e7c11b2b285fd00758baac1be3784322a2aff62;p=ghc-hetmet.git

diff --git a/ghc/compiler/iface/IfaceType.lhs b/ghc/compiler/iface/IfaceType.lhs
index 2c83155..a4cf183 100644
--- a/ghc/compiler/iface/IfaceType.lhs
+++ b/ghc/compiler/iface/IfaceType.lhs
@@ -256,7 +256,7 @@ pprIfaceType :: Int -> IfaceType -> SDoc
 	-- Simple cases
 pprIfaceType ctxt_prec (IfaceTyVar tyvar)     = ppr tyvar
 pprIfaceType ctxt_prec (IfaceTyConApp tc tys) = ppr_tc_app ctxt_prec tc tys
-pprIfaceType ctxt_prec (IfacePredTy st)     = braces (ppr st)
+pprIfaceType ctxt_prec (IfacePredTy st)       = braces (ppr st)
 
 	-- Function types
 pprIfaceType ctxt_prec (IfaceFunTy ty1 ty2)