Small refactor in desugar of pattern matching
[ghc.git] / compiler / deSugar / DsListComp.hs
index 29b3cf4..f325b56 100644 (file)
@@ -621,7 +621,7 @@ dsMcBindStmt :: LPat GhcTc
 dsMcBindStmt pat rhs' bind_op fail_op res1_ty stmts
   = do  { body     <- dsMcStmts stmts
         ; var      <- selectSimpleMatchVarL pat
-        ; match <- matchSinglePat (Var var) (StmtCtxt DoExpr) pat
+        ; match <- matchSinglePatVar var (StmtCtxt DoExpr) pat
                                   res1_ty (cantFailMatchResult body)
         ; match_code <- handle_failure pat match fail_op
         ; dsSyntaxExpr bind_op [rhs', Lam var match_code] }