[project @ 1996-04-08 16:15:43 by partain]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsBinds.lhs

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index a01b198..15dafc9 100644 (file)
--- 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}
 
 %************************************************************************