diff options
| author | sof <unknown> | 1997-06-05 21:01:32 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-06-05 21:01:32 +0000 |
| commit | 01bb2208d997bd68f7f8229d7464b253bc8519c7 (patch) | |
| tree | 6542735f19b7b230ea607913e19db5903d0300df /ghc/compiler/deSugar/MatchCon.lhs | |
| parent | 097136080176788a932370fb682885b63f156482 (diff) | |
| download | haskell-01bb2208d997bd68f7f8229d7464b253bc8519c7.tar.gz | |
[project @ 1997-06-05 21:01:10 by sof]
import updates
Diffstat (limited to 'ghc/compiler/deSugar/MatchCon.lhs')
| -rw-r--r-- | ghc/compiler/deSugar/MatchCon.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ghc/compiler/deSugar/MatchCon.lhs b/ghc/compiler/deSugar/MatchCon.lhs index 7abf1850c1..d572e60f32 100644 --- a/ghc/compiler/deSugar/MatchCon.lhs +++ b/ghc/compiler/deSugar/MatchCon.lhs @@ -9,7 +9,11 @@ module MatchCon ( matchConFamily ) where IMP_Ubiq() +#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201 IMPORT_DELOOPER(DsLoop) ( match ) -- break match-ish loop +#else +import {-# SOURCE #-} Match +#endif import HsSyn ( OutPat(..), HsLit, HsExpr ) import DsHsSyn ( outPatType ) |