X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsMonad.lhs;h=3ea0bc2eb1bfce4b4ab1b56aa8cef00a74cca840;hb=9d4c03805bafb6b1e1d47306b6a6c591c998e517;hp=618f8c910fc17b469dc49ad973ea32681b050162;hpb=e7498a3ee1d0484d02a9e86633cc179c76ebf36e;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsMonad.lhs b/ghc/compiler/deSugar/DsMonad.lhs
index 618f8c9..3ea0bc2 100644
--- a/ghc/compiler/deSugar/DsMonad.lhs
+++ b/ghc/compiler/deSugar/DsMonad.lhs
@@ -7,7 +7,7 @@
 #include "HsVersions.h"
 
 module DsMonad (
-	DsM(..),
+	SYN_IE(DsM),
 	initDs, returnDs, thenDs, andDs, mapDs, listDs,
 	mapAndUnzipDs, zipWithDs,
 	uniqSMtoDsM,
@@ -17,7 +17,7 @@ module DsMonad (
 	getSrcLocDs, putSrcLocDs,
 	getModuleAndGroupDs,
 	extendEnvDs, lookupEnvDs, lookupEnvWithDefaultDs,
-	DsIdEnv(..),
+	SYN_IE(DsIdEnv),
 	lookupId,
 
 	dsShadowError,
@@ -28,21 +28,21 @@ IMP_Ubiq()
 
 import Bag		( emptyBag, snocBag, bagToList )
 import CmdLineOpts	( opt_SccGroup )
-import CoreSyn		( CoreExpr(..) )
+import CoreSyn		( SYN_IE(CoreExpr) )
 import CoreUtils	( substCoreExpr )
 import HsSyn		( OutPat )
 import Id		( mkSysLocal, mkIdWithNewUniq,
-			  lookupIdEnv, growIdEnvList, GenId, IdEnv(..)
+			  lookupIdEnv, growIdEnvList, GenId, SYN_IE(IdEnv)
 			)
 import PprType		( GenType, GenTyVar )
 import PprStyle		( PprStyle(..) )
 import Pretty
 import SrcLoc		( unpackSrcLoc, mkUnknownSrcLoc, SrcLoc )
-import TcHsSyn		( TypecheckedPat(..) )
+import TcHsSyn		( SYN_IE(TypecheckedPat) )
 import TyVar		( nullTyVarEnv, cloneTyVar, GenTyVar{-instance Eq-} )
 import Unique		( Unique{-instances-} )
 import UniqSupply	( splitUniqSupply, getUnique, getUniques,
-			  mapUs, thenUs, returnUs, UniqSM(..) )
+			  mapUs, thenUs, returnUs, SYN_IE(UniqSM) )
 import Util		( assoc, mapAccumL, zipWithEqual, panic )
 
 infixr 9 `thenDs`