[project @ 1996-12-19 09:10:02 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcGRHSs.lhs

diff --git a/ghc/compiler/typecheck/TcGRHSs.lhs b/ghc/compiler/typecheck/TcGRHSs.lhs
index a5d1fc0..7072a55 100644 (file)
--- a/ghc/compiler/typecheck/TcGRHSs.lhs
+++ b/ghc/compiler/typecheck/TcGRHSs.lhs
@@ -4,24 +4,26 @@
 \section[TcGRHSs]{Typecheck guarded right-hand-sides}
 
 \begin{code}
+#include "HsVersions.h"
+
 module TcGRHSs ( tcGRHSsAndBinds ) where
 
-import Ubiq{-uitous-}
-import TcLoop -- for paranoia checking
+IMP_Ubiq(){-uitous-}
+IMPORT_DELOOPER(TcLoop) -- for paranoia checking
 
 import HsSyn           ( GRHSsAndBinds(..), GRHS(..),
                          HsExpr, HsBinds(..), InPat, OutPat, Bind, Sig, Fake )
-import RnHsSyn         ( RenamedGRHSsAndBinds(..), RenamedGRHS(..) )
-import TcHsSyn         ( TcGRHSsAndBinds(..), TcGRHS(..), TcIdOcc(..) )
+import RnHsSyn         ( SYN_IE(RenamedGRHSsAndBinds), SYN_IE(RenamedGRHS) )
+import TcHsSyn         ( SYN_IE(TcGRHSsAndBinds), SYN_IE(TcGRHS), TcIdOcc(..) )
 
 import TcMonad
-import Inst            ( Inst, LIE(..), plusLIE )
+import Inst            ( Inst, SYN_IE(LIE), plusLIE )
 import TcBinds         ( tcBindsAndThen )
 import TcExpr          ( tcExpr )
-import TcType          ( TcType(..) ) 
+import TcType          ( SYN_IE(TcType) ) 
 import Unify           ( unifyTauTy )
 
-import PrelInfo                ( boolTy )
+import TysWiredIn      ( boolTy )
 \end{code}
 
 \begin{code}