[project @ 1997-06-06 22:27:06 by sof]

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

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index 0c167d6..1f32b3e 100644 (file)
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -17,9 +17,6 @@ IMP_Ubiq()
 IMPORT_DELOOPER(HsLoop)        ( pprMatches, pprGRHSsAndBinds,
                          Match, GRHSsAndBinds,
                          pprExpr, HsExpr )
-#else
-import {-# SOURCE #-} HsMatches ( pprMatches, Match, pprGRHSsAndBinds, GRHSsAndBinds )
-import {-# SOURCE #-} HsExpr    ( pprExpr, HsExpr )
 #endif
 
 import HsPragmas       ( GenPragmas, ClassOpPragmas )
@@ -39,6 +36,12 @@ import Bag
 import SrcLoc          ( SrcLoc{-instances-} )
 import TyVar           ( GenTyVar{-instances-} )
 import Unique          ( Unique {- instance Eq -} )
+
+#if __GLASGOW_HASKELL__ >= 202
+import {-# SOURCE #-} HsExpr    ( pprExpr, HsExpr )
+import {-# SOURCE #-} HsMatches ( pprMatches, Match, pprGRHSsAndBinds, GRHSsAndBinds )
+#endif
+
 \end{code}
 
 %************************************************************************