summaryrefslogtreecommitdiff
path: root/ghc/compiler/deSugar/MatchCon.lhs
diff options
context:
space:
mode:
authorsimonm <unknown>1998-01-08 18:12:31 +0000
committersimonm <unknown>1998-01-08 18:12:31 +0000
commit9dd6e1c216993624a2cd74b62ca0f0569c02c26b (patch)
tree28a471729f40b0a69dae5f748b53e0955aa300a3 /ghc/compiler/deSugar/MatchCon.lhs
parentff14742cc328f19b9bf7c04d9a69408e641cf64a (diff)
downloadhaskell-9dd6e1c216993624a2cd74b62ca0f0569c02c26b.tar.gz
[project @ 1998-01-08 18:03:08 by simonm]
The Great Multi-Parameter Type Classes Merge. Notes from Simon (abridged): * Multi-parameter type classes are fully implemented. * Error messages from the type checker should be noticeably improved * Warnings for unused bindings (-fwarn-unused-names) * many other minor bug fixes. Internally there are the following changes * Removal of Haskell 1.2 compatibility. * Dramatic clean-up of the PprStyle stuff. * The type Type has been substantially changed. * The dictionary for each class is represented by a new data type for that purpose, rather than by a tuple.
Diffstat (limited to 'ghc/compiler/deSugar/MatchCon.lhs')
-rw-r--r--ghc/compiler/deSugar/MatchCon.lhs13
1 files changed, 4 insertions, 9 deletions
diff --git a/ghc/compiler/deSugar/MatchCon.lhs b/ghc/compiler/deSugar/MatchCon.lhs
index 280103b056..152d082050 100644
--- a/ghc/compiler/deSugar/MatchCon.lhs
+++ b/ghc/compiler/deSugar/MatchCon.lhs
@@ -4,16 +4,11 @@
\section[MatchCon]{Pattern-matching constructors}
\begin{code}
-#include "HsVersions.h"
-
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
+#include "HsVersions.h"
+
+import {-# SOURCE #-} Match ( match )
import HsSyn ( OutPat(..), HsLit, HsExpr )
import DsHsSyn ( outPatType )
@@ -21,7 +16,7 @@ import DsHsSyn ( outPatType )
import DsMonad
import DsUtils
-import Id ( GenId{-instances-}, SYN_IE(Id) )
+import Id ( GenId{-instances-}, Id )
import Util ( panic, assertPanic )
\end{code}