X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcMatches.lhs;h=7fa379077c21349b2d05b2f1805acb96c194e5b8;hb=150e0a93f0187c4982644ac5bce776cc96b0d65d;hp=8ac55c51494678e56985bff63b1f4837dec359df;hpb=bca9dd54c2b39638cb4638aaccf6015a104a1df5;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index 8ac55c5..7fa3790 100644
--- a/ghc/compiler/typecheck/TcMatches.lhs
+++ b/ghc/compiler/typecheck/TcMatches.lhs
@@ -284,7 +284,7 @@ tcStmts :: StmtCtxt
         -> TcM (([TcStmt], [(Name, TcId)]), LIE)
 
 tcStmts do_or_lc m elt_ty loc (ParStmtOut bndrstmtss : stmts)
-  = let (bndrss, stmtss) = unzip bndrstmtss in
+  = let stmtss = map snd bndrstmtss in
     mapAndUnzip3Tc (tcParStep loc) stmtss	`thenTc` \ (stmtss', val_envs, lies) ->
     let outstmts = zip (map (map snd) val_envs) stmtss'
 	lie = plusLIEs lies