module MatchLit ( matchLiterals ) where
IMP_Ubiq()
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(DsLoop) -- break match-ish and dsExpr-ish loops
+#else
+import {-# SOURCE #-} Match
+import {-# SOURCE #-} DsExpr ( dsExpr )
+#endif
import HsSyn ( HsLit(..), OutPat(..), HsExpr(..), Fixity,
Match, HsBinds, Stmt(..), DoOrListComp, HsType, ArithSeqInfo )
SYN_IE(TypecheckedPat)
)
import CoreSyn ( SYN_IE(CoreExpr), SYN_IE(CoreBinding), GenCoreExpr(..), GenCoreBinding(..) )
-import Id ( GenId {- instance Eq -} )
+import Id ( GenId {- instance Eq -}, SYN_IE(Id) )
import DsMonad
import DsUtils
import Literal ( mkMachInt, Literal(..) )
import Maybes ( catMaybes )
-import Type ( isPrimType )
+import Type ( isPrimType, SYN_IE(Type) )
import Util ( panic, assertPanic )
\end{code}