diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index 8a508a56282ba7b9bbb2cba0093bdd40d4a9bb72..9408c6053ca9d6a1d40d192382c90e76dda82855 100644
--- a/ghc/compiler/deSugar/DsUtils.lhs
+++ b/ghc/compiler/deSugar/DsUtils.lhs
@@ -29,7 +29,11 @@ module DsUtils (
     ) where
 
 IMP_Ubiq()
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(DsLoop)		( match, matchSimply )
+#else
+import {-# SOURCE #-} Match (match, matchSimply )
+#endif
 
 import HsSyn		( HsExpr(..), OutPat(..), HsLit(..), Fixity,
 			  Match, HsBinds, Stmt, DoOrListComp, HsType, ArithSeqInfo )