X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsArrows.lhs;fp=compiler%2FdeSugar%2FDsArrows.lhs;h=3360a95a976be9fbcf9e672fe001c604f2563c78;hp=89c453fd7302cc298a31e0dfb7f2f4a7d63c2fd9;hb=faca1a62c1385aa6ebdeb7d25ffa193ba2283fb9;hpb=9d552c373cad90d1da673f3140caf1d8779f6840

diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs
index 89c453f..3360a95 100644
--- a/compiler/deSugar/DsArrows.lhs
+++ b/compiler/deSugar/DsArrows.lhs
@@ -1041,8 +1041,6 @@ collectl (L _ pat) bndrs
   = go pat
   where
     go (VarPat var)               = var : bndrs
-    go (VarPatOut var bs)         = var : collectEvBinders bs
-                                    ++ bndrs
     go (WildPat _)                = bndrs
     go (LazyPat pat)              = collectl pat bndrs
     go (BangPat pat)              = collectl pat bndrs