X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;h=15dafc9d0eb29d8b5c876bd527d80d452c922c55;hb=7b0181919416d8f04324575b7e17031ca692f5b0;hp=a01b198ab8892a4d427331113edf586f7a516a48;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index a01b198..15dafc9 100644
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -10,25 +10,25 @@ Datatype for: @HsBinds@, @Bind@, @Sig@, @MonoBinds@.
 
 module HsBinds where
 
-import Ubiq{-uitous-}
+import Ubiq
 
 -- friends:
 import HsLoop
-
 import HsMatches	( pprMatches, pprGRHSsAndBinds,
-			  Match, GRHSsAndBinds
-			)
+			  Match, GRHSsAndBinds )
 import HsPat		( collectPatBinders, InPat )
 import HsPragmas	( GenPragmas, ClassOpPragmas )
 import HsTypes		( PolyType )
 
 --others:
 import Id		( DictVar(..), Id(..), GenId )
-import Outputable
-import PprType		( pprType )
+import Name		( pprNonOp )
+import Outputable	( interpp'SP, ifnotPprForUser,
+			  Outputable(..){-instance * (,)-}
+			)
 import Pretty
 import SrcLoc		( SrcLoc{-instances-} )
-import TyVar		( GenTyVar{-instances-} )
+--import TyVar		( GenTyVar{-instances-} )
 \end{code}
 
 %************************************************************************