[project @ 1998-12-18 17:40:31 by simonpj]

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

diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index 9ecbae9..a26082f 100644 (file)
--- a/ghc/compiler/deSugar/DsUtils.lhs
+++ b/ghc/compiler/deSugar/DsUtils.lhs
@@ -62,10 +62,10 @@ otherwise, make one up.
 
 \begin{code}
 selectMatchVar :: TypecheckedPat -> DsM Id
-selectMatchVar (VarPat var)    = returnDs var
-selectMatchVar (AsPat var pat) = returnDs var
-selectMatchVar (LazyPat pat)   = selectMatchVar pat
-selectMatchVar other_pat       = newSysLocalDs (outPatType other_pat) -- OK, better make up one...
+selectMatchVar (VarPat var)     = returnDs var
+selectMatchVar (AsPat var pat)         = returnDs var
+selectMatchVar (LazyPat pat)           = selectMatchVar pat
+selectMatchVar other_pat               = newSysLocalDs (outPatType other_pat) -- OK, better make up one...
 \end{code}