diff options
| author | partain <unknown> | 1996-06-05 06:51:39 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-06-05 06:51:39 +0000 |
| commit | e7498a3ee1d0484d02a9e86633cc179c76ebf36e (patch) | |
| tree | c1688b600d0b3c217b84cf07870379c29c969529 /ghc/compiler/deSugar/DsMonad.lhs | |
| parent | 30cf375e0bc79a6b71074a5e0fd2ec393241a751 (diff) | |
| download | haskell-e7498a3ee1d0484d02a9e86633cc179c76ebf36e.tar.gz | |
[project @ 1996-06-05 06:44:31 by partain]
SLPJ changes through 960604
Diffstat (limited to 'ghc/compiler/deSugar/DsMonad.lhs')
| -rw-r--r-- | ghc/compiler/deSugar/DsMonad.lhs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ghc/compiler/deSugar/DsMonad.lhs b/ghc/compiler/deSugar/DsMonad.lhs index 6236b69f4e..618f8c910f 100644 --- a/ghc/compiler/deSugar/DsMonad.lhs +++ b/ghc/compiler/deSugar/DsMonad.lhs @@ -24,7 +24,7 @@ module DsMonad ( DsMatchContext(..), DsMatchKind(..), pprDsWarnings ) where -import Ubiq +IMP_Ubiq() import Bag ( emptyBag, snocBag, bagToList ) import CmdLineOpts ( opt_SccGroup ) @@ -247,6 +247,7 @@ data DsMatchKind | CaseMatch | LambdaMatch | PatBindMatch + | DoBindMatch pprDsWarnings :: PprStyle -> Bag DsMatchContext -> Pretty pprDsWarnings sty warns @@ -274,5 +275,9 @@ pprDsWarnings sty warns = ppHang (ppPStr SLIT("in a lambda abstraction:")) 4 (ppSep [ppSep (map (ppr sty) pats), pp_arrow_dotdotdot]) + pp_match DoBindMatch pats + = ppHang (ppPStr SLIT("in a `do' pattern binding:")) + 4 (ppSep [ppSep (map (ppr sty) pats), pp_arrow_dotdotdot]) + pp_arrow_dotdotdot = ppPStr SLIT("-> ...") \end{code} |