[project @ 1999-02-10 16:01:17 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsMonad.lhs

diff --git a/ghc/compiler/deSugar/DsMonad.lhs b/ghc/compiler/deSugar/DsMonad.lhs
index 930b851..ea697b2 100644 (file)
--- a/ghc/compiler/deSugar/DsMonad.lhs
+++ b/ghc/compiler/deSugar/DsMonad.lhs
@@ -20,7 +20,7 @@ module DsMonad (
        ValueEnv,
        dsWarn, 
        DsWarnings,
-       DsMatchContext(..), DsMatchKind(..), pprDsWarnings
+       DsMatchContext(..), DsMatchKind(..)
     ) where
 
 #include "HsVersions.h"
@@ -28,7 +28,7 @@ module DsMonad (
 import Bag             ( emptyBag, snocBag, bagToList, Bag )
 import ErrUtils        ( WarnMsg, pprBagOfErrors )
 import HsSyn           ( OutPat )
-import Id              ( mkUserLocal, mkSysLocal, setIdUnique, Id )
+import Id              ( mkSysLocal, setIdUnique, Id )
 import Name            ( Module, Name, maybeWiredInIdName )
 import Var             ( TyVar, setTyVarUnique )
 import VarEnv
@@ -234,7 +234,4 @@ data DsMatchKind
   | ListCompMatch
   | LetMatch
   deriving ()
-
-pprDsWarnings :: DsWarnings -> SDoc
-pprDsWarnings warns = pprBagOfErrors warns
 \end{code}