X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsUtils.lhs;h=a26082fb8348e49487232846f6a54e1f0168fc77;hb=7e602b0a11e567fcb035d1afd34015aebcf9a577;hp=9ecbae905b2bf6eec03d5601a65ef77cf0b4482d;hpb=139f0fd30e19f934aa51885a52b8e5d7c24ee460;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index 9ecbae9..a26082f 100644
--- 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}