[project @ 1999-03-02 15:40:08 by sof]

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

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